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TARGET (l-colunm) 


Nummer : 




i 


1 TO*. 



Auteur: 
Per Weber 

Gebr.Wlenerstr. 159 
5913 XS Venlo 
Holland 

Bij dit spelletje worden de horizontale streepjes van het KIM- 
ils^lay gebruikt als b«we-send doel* Ha «'^ra?%*n igaat op de bo- 
venste lijn een streepje lopen van links naar rechts. Toets 3 
wordt gebruikt als schietknop. Geschoten wordt op digit 4 van 
het display. 

Bij raak verdwiont het streepje. Bij mis komt er een streep;je 
bij, Maximaal dus drie streepjes onder elkaar. 



Zmpag^e use 



0001 
0002 
0003 

0004 
0005 
0006 
0007 
0008 
0009 
000A 
000B 

mm 

000D 
000E 
000F 

0010 
0011 



DIGPTR 

SPEED 

SEGt 

SEGOPI 

SEG2 

SEG0P2 

SEG3 

SEG0P5 

MBSPT1 

MESPT2 

MESPT3 

MESPT5 
CODES r 
REPEAT 
TEMPX 
LOOPCO 



0200 


D8 


START CLD 


0201 


A9 00 


IiM ittli 


0203 


85 04 


STA SEGOPI 


0205 


85 06 


STA SEG0P2 


0207 


85 08 


A glG0P3 


0209 


A9 03 


LDA imm 


020B 


85 00 


STA SEGPTR 


02tD 


Af §5 


LM imm 


020P 


85 0P 


STA REPEAT 


0211 


A9 80 


LDA imm 


0213 


§5 02 




0215 


A9 81 


LDA imm 


0217 


85 03 


STA SEG1 


021 f 


Af ei 


LM tm 


021B 


85 05 


STA SE»2 


021D 


A9 C9 


LDA imm 



asff«igaient po inter 
sdigrltpointer 

ase^entcode 1 
ssepient off 



ajnesaagepointec 1 



=segmentcode store 
^repeats message 

=(not used) 
=loopcou.nter 

binary mode 
initialization 



Datum ingangi 


1 Vervangt : 


d.d, « 




18 juni 1979 


1 - 




1 'Wm'^'f^m- 












1 





021F 85 


07 






STA SEG3 


0221 A9 


3B 






LDA imm 


0223 85 


09 






STA MESPT1 


0225 A9 


41 






LDA imm 


0227 85 


0A 






STA MESPT2 


0229 A9 


47 






LDA imm 


022B 85 


0B 






STA MESPT3 


022D A9 


4D 






LDA imm 


022F 85 


0C 






STA MESPT4 


0251 A9 


53 






LDA imn 


0235 85 


0]} 






STA MESPT5 


0255 A9 


07 




STARTC 


LDA imm 


0237 85 


01 






blA Dilix^in 


1259 M 


m 




GONTIN 


INC DiUFin 


023B E6 


01 






LU\j Dx.\xirlB. 


023D A5 


01 






LDA DiUiritt 








CMP inun 


0241 F0 


F2 






BEQ STARTC 


0243 a6 


00 




TO SHOW 


LDA brjVjrri.n 


0245 B5 


00 






LDA z-p t A 


0247 85 


0E 






STA CODiibi 


0249 20 


54 




T.TmTrnp 

ijX J. £jU X 


JSR SHOW 


024c If 


01 






LDA imm 


024E 8D 


42 


17 




STA abs 


0251 4C 


74 


02 




JMP ANYKETf 


0254 A9 


7F 




STOW 


LDA imra 


0256 8D 41 


17 




STA abs 


0259 A5 


01 






LDA. lUGrrK 


025B 8D 


42 


1 1 




0 J- -Tl- U 0 


0251 A5 015 






LDA CODEST 


0260 8D 


40 


17 




STA abs 


0263 A0 20 






LDY imm 


0265 88 






LOOP 


DEY 


0266 D0 


FD 






BNE LOOP 


0268 60 








RTS 


0269 A2 80 




PAUSE 


LDX imm 


026B A0 PP 




L00P1 


LDY iiBBtt 


026D 88 






L00P2 


DEY 


026E D0 


FD 






BNE L00P2 


0270 OA 








DEX 


0271 3)0 


F8 






BNE L00P1 


0273 60 








RTS 



initialize digitpointer 
next digit 



digit "T"? 



get segmentcode 
and store 



digit off 

padd at 1 

digit on 

segments on 
and %rait 



0274 20 40 1F 
0f7T 20 6k IP 
027A C9 15 
027c D0 17 
027E C6 02 



ANYKEY JSR KEYIN 
JSR GEfKBI 
CMP imm 
BNE GOKEY 

NOEEY JMC SPEED 



no key? 



Datum ingang i 

18 juni 1979 



Vervangt 1 



d.d. t 



Ref « i 

Per Weber 




§€FftfASl himMI 



3 vaa 5 



0280 


D0 


07 






m& 


LITEUP 




0282 


A9 


80 






LDA 


imra 


restore speed 


0284 


85 


02 






STA 


SPEED 




iiM 


A5 


00 






LDA 


SEGPTR 




0288 


4A 








LSR 


acc 


segx or se^fx? 


0289 


90 


05 






BOG 


NEXDIG 




028B 


e6 


00 






IHO 


SEGPTR 




028D 


4C 


45 


02 




JMP 


TOSHOW 




0290 


C6 


00 




NEXDIG 


DEC 


SEGPTR 




02f2 


40 


59 


02 




JMP 


CONTIN 




0295 


C9 


13 




GOKEY 


CMP 


imm 


key «G0«? 


0297 


D0 


06 






BNl 


KEY3 




0299 


20 


69 


02 




jSR 


PAUSE 




029c 


4C 


00 


02 




JMP 


START 




029P 


09 


05 




KEY3 


OMP 


1mm 


key "3"? 


02A1 


m 


42 






W& 


ILLKEY 


no, then llle^l key 


02A3 


20 


69 


02 




JSR 


PAUSE 




02A6 


A5 


01 






LBA 


DIGPTR 




B2A8 


09 


0P 






OTP 


iUffll 


atlwo digit «4**? 


02AA 


D0 


0E 






BNE 


MISS 




02AC 


A5 


00 






LDA 


SEGPTR 




02AE 


09 


05 






CMP 


1mm 


seg1? 


02B0 


F0 


54 






BEQ 


WIN 




02B2 


C9 


05 






OMP 


1mm 


seg2? 


02B4 


P0 


3D 






BSQ 


HIT 




02B6 


C9 


07 






CMP 


imm 


eegj? 


02B8 


P0 


39 






BEI^ 


HIT 




021A 


A5 








XiM 


SBOPTR 






40 








PW4 
x^rui 








AO 








XiDA 












tlx 




U DXl 








00 






PT.A 










DIG) 








CJ'B'flP'PP 








00 






IMG 


S'EGP'PR 




02C7 


e6 


00 






INC 


SEGPTR 




0209 


A5 


00 






LDA 


SEGPTR 




02CB 


09 


09 






OMP 


imm 


lose? 


02GD 


F0 


07 






BEQ 


LOSE 




02CF 


09 


0A 






CMP 


imm 


lose? 




Pi 


05 






BEQ 


LOSS 




02D5 


40 


35 


02 




JMP 


STAHTC 




02I>6 


a6 


0D 




LOSS 


LDX 


MESPT5 




02D8 


20 


12 


03 




J SB 


MESSHO 




02DB 


06 


0F 




U&t 


EtPBAT 




02DD 


D0 


F7 






BNE 


LOSE 




02DP 


20 


69 


02 




JSR 


PAUSE 




02E2 


40 


00 


02 




JMP 


START 





Datum ingang t 
18 juni 1979 



Vervangtf * 



d»d,i 



Per Weber 




GEBKIIKIKS CLUB NEDERLAMD 



TARGET (1 -column) 



Nummer : 



Bladj _ 
4 vaa 5 







00 






LX/A 






02E7 


48 








PHA 




save segioentpolnter on stack 


02iS 


46 


0B 






LDX 


MESPT5 




t2SA 


t0 


12 


05 




JSR 


MESSHO 




02ED 


20 


69 


02 




JSR 


PAUSE 






4G 


C2 


02 




JMP 


MISSCO 




02F3 


A5 


00 




HIT 


LDA 


SEGPTR 




02P5 


48 








flA 




save segmentpointex on stack 


02P6 


a6 


0A 






LDX 


MESPT2 




Baps 


20 


12 


05 




JSR 


MESSHO 




0|!PB 


€e 








PLA 




return ftepientpolnter 


02FC 


85 


00 






STA 


SEGPTR 




02PE 


C6 


00 






DEC 


SEGPTR 




0500 


t0 


69 82 




SWl 


PA¥SE 




0505 


4C 


55 


02 




JMP 


STARTC 




liC) p WD 


Ad 


0G 




WxCl 


L-UA 


MTC! prri/l 
rllljori 4 




IT) 




12 


03 




J OA 






tIJD 




0f 














TVI3I 


FT 
















00 


02 




TTVrP 


0 liixtl 




0512 


A9 


80 




MESSHO 


LDA 


1mm 


initialize loopcounter 


0314 


85 


11 






STA 


LOOPCO 




0316 


A9 


07 




DIGSTA 


LDA 


imm 


initialize digitpointer 




85 


01 






orn A 


DIGPTR 


get segmenicode 


n 7 ■! A 

M5I A 


BD 


0B 


03 




T T\A 
ilUA 


abSyX 


n -I T\ 
D 


Q C 

85 


0E 






crn A 
0 i A 


CODEST 








01 








DIGPTR 


next digit 




1!*^ 

£iO 


01 








KtdPTR 






a;? 


01 






T.TlA 


DIGPTR 






C9 


15 






CMP 




digit "7"? 


0327 


P0 


f»C 






KJQ 


MESSrCO 




0329 


20 


54 


02 


SRSHOW 


JSR 


SHOW 




032G 


A9 


00 






LDA 


imm 


segments off 


032E 


8D 


40 


17 




STA 






0331 


E8 








INX 






0332 


4G 


1A 


03 




JMP 


SEGSTA 




0335 


CA 


CA 


CA 




DEX 


DEX DEX return Xregister to initial 


0338 


OA 


CA 


OA 








ptate 


033B 


C6 


11 






I£iO 


IiOOfOO 




033D 


D0 


04 






BNE 


AGAIN 




033P 


20 


69 


02 




JSR 


PAUSE 




0542 


60 








RTS 






®543 


4C 


16 


03 


AGAIN 


JMP 


DIGSTA 





messages in Dutch:. 
0346 80 P1 BP IB P8 80 
0340 80 9E IB 86 ED P8 



Datum ingang: 








18 juni 1979 


r ■ ■ 


MB 






GWBmSMa GLDB HSDERLAHD 



TMGET (1 -column) 



Nununer : 



Bladt 



I mm. 5 



0552 80 F1 BF F9 86 80 

i55S Si p6 bp p9 d0 I"? 
055® m m F1 PI 86 P9 

— ©eeeeee — - 

alternative messages in English; 
0546 Bt EP 80 P4 86 P8 

034c 80 F4 86 F8 80 80 
0552 P1 BP BE B8 80 80 

ii5S #6 9C M W T! EE 
055E ED P8 9C P3 84 DE 

eeeeee— 



I 



Datum ingang ; 

18 3^mi 1979 



Vervangt: 




Ref »i 






Per Weljep 




msAt 



1 '9m 8 



Auteur: 
Fer Weber 
Gebr. Wieners tr. 
5915 XS Venlo 
Holiazid 



139 



Sadat TARGET 1-coluam draaiend was gekregen, dacht ik het even 
mft te breiden tot alle kolommen van to#t KIM-display, . . . 
Nou, mooi mis I Het werd een heel nieuw opgezet programma. Nu 
moest alles dat op het display komt gemultiplexed worden. Verder 
iBoest in het geheugen een "epeelveld" (STATE) gemaakt worden 
waarin alle veranderingen gepleegd worden en waaruit de gegevens 
voor het display gehaald worden (SEGST). Nu ik toch bezig was 
werden er maar meteen twee spelletjes ineen gedraaidt asiHil #<i[n , 
"-uifschiet- als een "aan"schietspellet je . Verder werd er nu 
Toor gezorgd dat pas na het loslaten van een toets het program- 
oa woiNlis *v*#s?'P®i.gd • 

Na het starten van het programma komt nu de vraag "a of b" op 
het display. Men kan nu met toets "A" kiezen voor het spelletje 
«uit"s©hi«ten, of met toets voor het spelletje "aan"schieten. 
Schietknop is weer toets "3" en schietdoel is ook weer digit 4« 
Spel A: winst als alle streepjes uit, dus uitschieten van ■ 

a«ii>.B%x>eepJes op digit 4« 
Spel B: winst als alle streepjes aan, dus aanschieten van 

uit-streepjes op digit 4. Bv raak schieten op een kolom 
met al drie streepjes aan levert verlies op. 



z-page use 



0000 

0001 
0002 

0005 

0004 
0005 
0006 

0007 

0008 
0009 
000A 
000B 
000E 
000F 
0010 
0011 
0012 
0013 
011i 
0015 



DIGIPT 
SEGMPT 
STATPT 
STATST 
LOOPCO 
REPEST 
ONOFST 
OPPPTR 
MESPT1 
MBSPT2 
MESPT3 
MESPT4 
PMZST 
TEMPPL 
SEGST 1 
SEGST2 
SEGST5 
SEGST4 

ms^^ 



ssdigitpointer 
sssegmentpointer 
sstatepointer 
astate stoire 
=loopcounter 
ssrepeat store 
«on/off store 
ssoff pointer 
=messagepointer 1 



splay a. ox !» store 

=temporary store play a or b 
=segmentcode store, digit 1 



Datum ingang ; 

18 juBd 1979 



Vervangt : 



d.d. : 



Ref . : 

Per Weber 




TARGJTT (6-columH) 



Nummer: 



WUA* 



KJ tj T KJ 


90 


40 


IP 


IHKEY 


JSR KErlM 




9 CI 


6a 


IP 




JSR G3^KEY 


KJ ItJ ^ VJ 




21 






S<!PA S^iO 


t.1 U T O 


fQ 

^7 


15 






CMP imm 


W R A 


J? KJ 


09 






BEQ TOR!)^ 






6A 


IP 


INKEYC 


JSR GBTKEff 




C5 


21 






CMP KEYSTO 


0041 


F0 


F9 






BEQ INKEYC 


0045 


A5 


21 






LBA KEYSTO 




60 






lOHTS 


RTS 


0046 


A2 


0B 




ISTATE 


LDX imm 


0048 


95 


15 




PSTATE 


STA z-p,X 


004A 


CA 








mn 


004B 


D0 


PB 






BNE PSTATE 


004D 


60 








RTS 


004E 


20 


65 


00 


MESCON 


JSR PAUSE 


0051 


20 


AB 05 




JSR MBSSHO 


0054 


A5 


04 




LOOPC 


LDA LOOPCO 


0056 


P0 


08 






ESQ REPEAT 


0058 


a6 


01 






li DX SE GMPT 


005A 


20 


6d 


03 




JSR DIGSTA 


005D 


4C 


54 


00 




JMP LOOPC 


0060 


C6 


05 






0062 


D0 


EA 






HNE MESCON 


0064 


60 








RTS 


0065 


A2 


80 




PAUSE 


LDX imm 


0067 


A0 


FP 




AA 


WT Iffiffi 


0069 


88 






A 


DEY 


006a 


D0 


FD 






BHE A 


006c 


CA 










006D 


D0 


F8 








006F 


60 








RTS 


0070 


A4 


02 




TOSHOW 


LDY STATPT 


0072 


a6 


01 






mi wmm 



001 ^ apA?®1 asstate sf i^s^taf field 

0017 STATE2 

0018 STATE5 
0ttf STATE4 
001 A STATE5 
001B STATE6 
081C STATKT 
001L STATE8 
001E STATE9 
001P STATBA 

0020 STATEB 

0021 KEYSTO =temporary key store 



this is subroutine that waiitS 
till key Is released 



no key? 



this is subroutine that fills 
STATE1 to STATEB in page 0 
falmi in ae<imejja'loie 



get looitGoiinter 
get segmentpolntes? 



get statepaintex 
get s«p»«tt*psinter 



Datum ingang ; 

18 juicL 1979 



Vervamgt : 



d.d. t 



Ref . t 




SGfTfTASl XitBltASt 





lMMNn>t 




1 


Bladt 

1 8 



0P17/1 

It 


20 


57 


0^ 








0077 


A6 


01 










0079 


20 


63 


03 

✓ 




JSR 


SHOW 


0SJ7C 


60 








RTS 




0080 


A9 


0F 




HSTART 


LDA 


imm 


0082 


85 


01 






STA 


SEGMPT 


0084 


A9 


1A 






LDA 


imm 


0086 


85 


03 






STA 


STATST 


0088 


A9 


P9 






LDA 


imm 


008A 


85 


07 






STA 


OPFPTR 


008C 


A9 


El 






LDA 


inun 


008E 


85 


08 






STA 


MESPT1 


0090 


A9 


E7 






LDA 


imm 


0092 


85 


09 






STA 


MESPP2 


0094 


A9 


ED 






LDA 


imm 


0096 


85 


0A 






STA 


MESPT3 


0098 


A9 


F3 






LDA 


imm 


009A 


85 


0B 






STA 


MESPT4 


009c 


A9 


80 






LDA 


imm 


009E 


20 


46 


00 




jsa 


ISfATB 


00A1 


A9 


81 






LDA 


imm 


00A3 


85 


IB 






STA 


STATE6 


00A5 


A9 


0A 






LDA 


imm 


00A7 


85 


05 






STA 


RSFEST 


00A9 


60 








RTS 





get se^entpointer 



initialize variables ss-p 



0200 


20 


80 


00 


STAfiT 


JSR 


0203 


EA 


EA 


EA 




NOP 


0206 


A5 


08 




PLAYAB LDA 


0208 


85 


02 






STA 


020A 


20 


A4 


05 




JSR 


020D 


20 


30 


00 


ANYKEY JSH 


021 0 


09 


15 






CMP 


0212 


D0 


12 






BNE 


0214 


A5 


04 




CONTIN LDA 


0216 


P0 


08 






BEQ 


0218 


a6 


01 






LDX 


02 1A 


20 


6d 


05 




JSR 


021D 


AC 


0D 


02 




JMP 


0220 


20 


77 


00 


BAOK 


JSR 


0225 


4C 


0B 


02 




JMP 


0226 


09 


0A 




KEYA 


^KP 


0228 


D0 


05 






BNE 


022A 


85 


0E 






STA 


022c 


4C 


55 


02 




mm 


022P 


09 


0B 




KBTB 


CMP 


0231 


D0 


El 






BNE 


0255 


85 


WE 






STA. 



RSTART start and initialize 

NOP NOP 

MESPFl gt% »»s«ag(if^nter 1 

STATPT to statepointer 
MESHOC 

imm no key? 
KEYA 

LOOPCO get loopoounter 

BACK 

SEGMPT get segmentpointer 

ANYKEY 
SEGSTA 
AHYKBY 

ism key At 

KEYB 

PLAYST store play a 

imm key B? 

GONTIN 

PLAYSf store play h 



Datum ingang: 


Vervangt : 


d.d, i 


8i>f « i 


18 juax 1979 






f Welder 




TARGET (6-columa) 


Nummer: 




1 





025'5 

^ ^ ^ J 


A5 


03 




ONCONT 


LDA 


STATST 


ffet state store 


0237 


C9 


14 






OMP 


imm 


done? 


0239 


D0 


02 






BNE 


DONE 




025B 


A9 


1A 






LDA 


imm 


statepointer to start 


023D 


85 


03 




DONE 


STA 


STATST 


to state store 


02 5P 


85 


02 






STA 


STATPT 


and to statepointer 


0241 


A9 


01 






LDA 


imm 


initialize on 


0245 


85 


06 






STA 


ONOFST 


to onyoff store 


0245 


20 


70 


00 




JSR 


TO SHOW 


0248 


20 


30 


00 


KEY 


JSR 


INKEY 




024B 


C9 


15 






CMP 


imm 


no key? 


024D 


D0 


24 






BNE 


GOKEY 




024F 


A5 


04 






LDA 


LOOPCO 


get loopcovihter 


0251 


P0 


08 






BEQ 


ONOFF 




0253 


a6 


01 






LDX 


SEGMPT 


get segmentpolnter 




d. «y 








J oil 






0258 


4C 


48 


02 




JMP 


KEY 




025B 


A5 


06 




ONOFP 


LDA 


ONOFST 


get on/off 




J* tJ 


Do 










025F 


A5 


02 






LDA 


STATPT 


get statepointer 


0261 


85 


03 






STA 


STATST 


to state store 


0263 


C6 


03 






DEO 


STATST 


- 1 


0265 


A5 


07 






LDA 


OPPPTR 


get offpointer 


0267 


85 


02 






STA 


STATPT 


to statepointer 


0269 


A9 


00 






LDA 


imm 


initialize off 


026B 


85 


06 






STA 


ONOFST 


to on/off store 


026D 


20 


A4 


03 

✓ 




JSR 


MESHOO 


0270 


40 


48 


02 




JMP 


KEY 




0273 


09 


13 




GOKEY 


CMP 


imm 


key GO? 


0275 


D0 


03 






BNE 


KEY 3 




0277 


4C 


00 


02 




•JMP 


START 




027A 


C9 


03 




KEY 3 


CMP 


imm 


key 3? 


027e 


S0 


1A 






BNE 


ILLKEY 


no, therefore Illegal 


027E 


A5 


13 






LDA 


SEGST4 


digit 4 lit? 


0280 


D0 


43 






BNE 


HIT 




0282 


A5 


0E 




HISS 


LDA 


PLAYST 


no, get 


0284 


85 


0F 






STA 


TEMPPL 


store tenporarlly- 


0286 


09 


0A 






CMP 


imm 


play A? 


0288 


B0 


04 






BNE 


MISSC 




028A 


A9 


0B 






LDA 


imm 


yes, change to play B 


028C 


85 


0F 






STA 


TEMPPL 


and store temporarily 






»5 




MISSC 


LDY 


STATST 


get filiate store 


0290 


A6 


01 






LDX 


SEGMPT 


get eegBentpointer 


0292 


20 


57 


03 




JSR 


PILL 




0295 


40 


09 02 




JMP 


HITCON 




mm 


m 








MESPT2 


get messagepointey 2 


029A 


05 


02 






mk 


STATPT 


to statepointer 



Datum ingangt 




d.d, 1 


Ref . \ 


18 juai 1979 






Per We"ber 




TARGET (6-coluiim) 


Nununer : 


1 


^ 5 ^ i 





9171 


4E 


00 




JSR 


rliliOL/Uri 






A Q 


0A 






LDA 


imm 




it 

■v£Jl f 




05 






STA 


Iu!iir£iO J. 




PI? A ^ 


A R 


0E 






LDA 


PT AYCjrp 
IrLili. 1 0 J. 




02A5 


C9 


0A 






CMP 


inun 


play A? 


02A7 


B0 


08 






BHE 


ILCONT 




02A9 


A9 


C9 






LM 


imm 


initialise ^aegB 


02AB 


20 


46 


00 




JSB 


ISTATE 




tMS 


4c 


35 82 




JMP 






02B1 


A9 


81 




ILCOSf Wk 


imm 


initialize Isegs 


02B3 


20 


46 


00 




Jlft 


ISTATE 






Af 


@B 






LDA 


imm 


initie,li2ft i«egs (Itlftiilc:) 


02B8 


85 


17 






STA 


STATE2 


fill eren states 


02BA 


85 


19 






STA 


STATE4 




02BC 


85 


IB 






STA 


STAifflB^ 




02S1 


85 


ID 






STA 


STATES 




02C0 


85 


IP 






STA 


STATEA 




02C2 


40 


35 


02 




JHP 


ONCONT 












HIT 


mk 










0F 






STA 


TVMPPT. 

J. Hjl LIT IT U 








0F 




HITCON 


LDA 


TTtlMPPT. 








0A 






CKP 


JLBUa 








36 






BNE 








A 


13 






LDA 


ci'B'r'cifPil 


j^CBy WXia b 0 ±11 UJL^X M 




fQ 

"7 


80 






CMP 


4 fnift 
xuuu 




02D5 


P0 


1 0 






BEQ 


MAKE1S 




02D5 


C9 


81 






CMP 


imm 


1 segg? 


021)7 




08 






BNE 


A2SEGS 


yes, load 0segs ("blank) 


02D9 


A0 


80 






LDY 


imm 


02DB 


20 


B7 


05 




JSR 


STATCH 


and change playing field 


023^ 


4e 


I»5 02 




JMP 


ALLBLA 


ohm^ if 1^1 blanks 


02E1 


C9 


CI 




A2SM1S 


CMP 


imm 


2segs? 


02B5 


1)0 


08 






ME 


A3SEGS 




02B5 


AB 


81 






LDT 


imm 


ymt load Isegs 


02E7 


20 


B7 


05 




JSR 


STATCH 


and ohange playing field 


02EA 


4C 


35 


02 




JMP 


ONCONT 




02ED 


A0 


CI 




A3SBGS LDY 


imm 


load f sftip 


02EP 


20 


B7 


03 




JSR 


STATCH 


and change pla^ring field 


02F2 


4C 


35 


02 




JMP 


ONCONT 




02P5 


A2 


15 




ALLBLA 


LDX 


imm 


load state 1 -1 


02P7 


B8 






LOOPA 


IlIX 






02F8 


E0 


21 






CPX 


imm 


all states done? 


02FA 


F0 


45 






BEQ 


WIN 




0ts»e 


B5 


00 






LM 


a-p,X 


ao-i gm% sliit^e 


02FE 


C9 


80 






CMP 


imm 


08«ep9 (blank)? 


0300 


F0 


F5 






BEQ 


LOOPA 




2392 


AC 


35 


02 




JMP 


OlICONT 





Datum ingangt 


fervangt : 


d.d, : 


Ref . 8 


18 jtud 1979 






IPmr f e% «r 




SEBBSTIKSm GI01 1tW»tili1iP 



TARGET (6-col\ira») 


Numner : 




1 





0505 


A5 


13 




B3SEGS liBA 


SEGSf4 


what's in digit 4? 


0507 


C9 


C9 






CMP 


imm 


3«efs? 


0309 


F0 


40 






BEQ 


LOSE 




030B 


C9 


C1 






CMP 


1mm 


2segs? 


030D 


D0 


0E 






BNE 


B1SEGS 






A (71 


C9 






LDY 


imm 


J.OelQ. pS€gS 






IT 


03 






^ATCH 


and chan^ playini; field 


0514 


A5 


0E 






LDA 


PLAYST 


get play 


0316 


C9 


0A 






CMP 


inn 


play A? 


031 8 




IT 










cheok If all segments lit 


03IA 


4C 


55 


02 




JMP 


ONCONT 




03ID 


C9 


81 




B1 SEGS 


CMP 


imm 


1 segs? 






08 






B^ 


B0SEGS 




0321 


A0 


C1 






LDY 


imm 


load 2segs 


0323 


20 


B7 


03 




JSR 


STATCH 


and change playing field 


0326 


40 


55 


02 




JMP 


ONCONT 




0329 


A0 


81 




B0SEGS 


LDY 


imm 


load Isegs 


032B 


20 


B7 


03 




JSR 


STATCH 


and change playing field 




4v> 


35 






JMP 


Unuun J. 




0331 


A2 


15 




ALL3S 


LDX 


imm 


load state 1 -1 


0333 


E8 






LOOPB 


IWX 






0334 


E0 


21 






CPX 


imm 


all states done? 














WJJI 




0558 


B5 


00 






LDA 




no, get next state 


055A 


09 


C9 






fiMP 


imm 


3segs? 




F0 










LOOPB 




03^ 






02 




JMP 


ONCONT 




0341 


A5 


0A 




WIN 


LDA 


MESPT3 


get messagepointer 5 


0345 


85 


02 






STA 


STATPT 


to statepointer 






4» 


1919 










034.8 


4C 


00 


02 




JMP 


START 




034B 


A5 


0B 




LOSS 


LDA 


MESPT4 


get messagepointer 4 


034D 
§541? 


85 


02 






STA 


STATPT 


to statepointer 


t'B 




00 












#3 


m 


02 




JMP 


STAKD 




0357 


C8 






FILL 


INY 




statepointer +1 


0358 


B9 


00 


00 




LDA 


abs,Y 


get segmentcode 


fl35B 


E8 








INX 




segmentpointer +1 


035c 


95 


00 






STA 


z-p,X 


store segmentcode 


035E 


E0 


15 






CPX 


imm 


done? 


0360 


©i 


I»5 








FILL 






ii 














0363 


A9 


30 




Slow 


LDA 


imm 


initialize loopcownter 


0365 


85 


04 






STA 


LOOPCO 


sets speed 


0367 
0569 


A3 


06 






LIA 


mmm 


get on/Off 


B0 


02 






ME 


BIGSfA 





Datum ingang : 

18 jutti 1979 



Vervangt : 



d.d.i 




*fAH€^ (6-ooltma) 


Nununer: 




1 


7 vaa 8 



04 

07 

00 

00 
00 
00 

15 

1D 

7P 

41 
00 

42 

00 



30 

FB 

00 
40 

71 

00 

42 
04 



17 
17 



17 
05 

17 



036B 46 
■036D A9 
036F 85 
0371 e6 
0573 e6 
0375 A5 

0377 C9 

0379 F0 

037B A9 

037D 8D 

0380 A5 
0382 8D 

0335 EB 
0386 B5 

e^m m 4® IT 

038B A0 
038D 88 
038E 1)0 
0390 A9 
0392 8D 
0395 4C 
0398 A9 
039A 8D 

03A0 A9 01 
03A2 85 06 
03A4 A4 02 
03A6 a6 01 
03A8 08 
05A9 B9 00 03 
03AC E8 
03AD 95 00 
03AP E0 15 
03BI D0 P5 
03B3 20 77 
0316 60 

A€ 

E8 
E8 
EA 
94 
E0 
P0 
E0 
F0 
E0 
I'0 



00 



1517 
03B9 
03BB 
«3B® 
03BE 
0300 
0302 

0304 
03C6 
03C8 
05CA 



05 

E8 
E8 



00 
IE 

15 

ID 
11 
1C 





LSR 


LOOPCO 


make offperiod half onperiod 


DIGSTA 


LDA 


imm 


initialize digitpoiatwr 




STA 


DIGIPT 




DIGCON 


INC 


DIGIPT 


digitpointer +2 




INC 


DIGIPT 






LDA 


DIGIPT 


get digitpointer 




CMP 


imm 


digit "7"? 




BEQ 


LOOPCN 




LITBUP 


LDA 


imm 






STA 


abs 


padd =1 




LDA 


DIGIPT 


get digitpointer 




STA 


al3S 


digit on 




INX 




segmentpointer +1 




LDA 


z-p,X 


get segmentoode 




STA 


abs 


segments on 




LDY 




said wait 


WAIT 


DEY 








BNE 


WAIT 






LDA 


imm 


segments oix 




STA 


abs 






JMP 


DIGCON 




LOOPCN 


LDA 


imm 


digits 0X1 




STA 


abs 






ISBQ 


LOOPCO 


ioopooTMi ver I 










MESSHO 


LDA 


imm 


initialize on 




STA 


ONOFST 


XO on /on STiOIre 


MESBOC 


LDY 


STATPT 


gex STjaxepom oci 




LDX 


SEGMPT 


get segmentpointer 


MESFIL 


INY 




S Ti3»li©pOin V*6?JC TI 




LDA 


abs 1 1 


MM^4i>' Mi A ^wrYi A ^ /> A ^ A 




INX 




H M frm A *T* /*\ n *r O 1 

S6gin©niipom ucx ti 




STA 


r» -r* Y 

Z-P,A 






CPX 


imm 


An A? 




BNE 


MESFIL 






JSR 


SEGSTA 






RTS 






STATCH LDX 


STATST 


get state 




INX 


INX 


statepointer +4 




INX 


INX 






NOP 








STY 


z-p,X 


load xsegs in state 




CPX 


imm 














CPX 


imm 






BEQ TODEC 





EEQ TOWC 



Datum ingang ; 

18 juBi 1979 



I VervMigt t 



d.d.t 



Per Vel)er 




QWBSltMS CLUB' NEDERLASD 



TARGET (6--QR»i%inm) 


Nummer : 




1 


1 





03CC E0 IB CPX imm 

03CE P0 11 BEQ RETURN 

03D0 E8 E8 INX INX 

05D2 E8 E8 INX INX 

03D4 E8 E8 INX INX 

03D6 94 00 STY z-p,X 

03DB 60 RETURN RTS 

0519 CA CA TODEC DEX DEX 
03])B CA CA DEX DEX 

05DD CA CA DEX DEX 

STY z-p,X 
HTS 

messages in Dutch: 
03E2 P7 80 BP PI 80 PC 
03E8 PI BP P9 86 80 80 
03EE 80 p6 bp P9 DR F7 
03P4 ED BE P1 PI 86 P9 
03PA 00 00 00 00 00 00 

alternative messages in Englishj 
03E2 P7 80 BP D0 80 PC 
«35^ P1 BP BE B8 80 80 
03EE P6 be D0 D0 P7 EE 
03P4 PC BE ED P8 P9 DE 

e3FA 00 00 00 00 00 00 



statepointer +6 

load xsegs in state 
statepointer -6 

load xsegs in state 



message 1 
message 2 
message 3 
message 4 
off 



message 1 
message 2 
message 3 
message 4 
off 



Datum ingangs 




d.d, I 


Ref . » 


18 juni 1979 


jVervangt: 




Fep Weljeap 






AiU'IVULLINGEN OP M10»)CHmS 1,0 


Nummer : 




1 


Blad: ^ 

1 van 5 







Fer Weber, Gebr.¥len6ti?str. 139, 5915 3^ Venlo, Holland. 
Uitgekeken op de vijf gegeven openiagen Mj ffie!f®eh-«*s 1.0 voor 
de KIM-1? Ik heb er eens een aantal bi jeengesprokkeld en geco- 
deerd. Val niet direct over me heen als het bij tijd en wijle 
niet de meesi ■aitr«i#de®i# ^»a«ie is... ik k®n Otk alleen maar 
de spelaregelB, In ieder geval goed voor variaties. 
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Vervangt : 
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0470 1 






C D 


2D 


HFxni IT 




$ 2 ii c; D 




0480 { 






E7 


2D 


CRLF 


* 


$2D E7 




0490* 






EB 


2D 


HEXS5F' 


ill- 


!|>2DEB 




oi";oo J 






EE 


2D 


OUTSP 


* 


$2DEE 




0510 ♦ 






FO 


2D 


OUTCH 


* 


*2DF0 




^ 0S201 










SUFIN 




$2E41 










AO 




OUTPUT 








■■VW'*! V ♦ 










f 








#'01 V ♦ 












^* 1^ 


CTl C* ATI 




A /\ '*> A ♦ 

Ci 0 0 J 










• 








0030 i 


2000 










r*t 

ORG 


rf" '"^ A 




0040? 










y 








A A A ♦ 


O A A A 

u u u 


A 










fSCTriA V 

Uc. 1 UnT 


TVDir TW 

t T r t, i M 


, 0060 ♦ 


'*> A A "/ 

2003 


C" A 

trl 








NUr 






AA"7A ♦ 




lit? 






WUL.JL> 


JJars 


L/L.l.>Ur%L. 


UL.L> nrtii 


oono I 


*«. w/ 










islDP 






0090 i 










* 








' 001 ot 












}|E )|C 3f( )|C 3{! 


FILF 04 




0020 1 


















0030 J 


2050 










ORG 


$2050 




i 0040 t 


















OOSO 1 

V \/ vj ♦ 


V tl^ V 




41 


op 




JSR 

WWII 




CORRECT 


A A /.A ♦ 


















' \wl ^; f 










f 




CTl E" Ab; 

r J. L. c. O J 




("1 A '■> ♦ 










* 








A "X A ♦ 

00s50» 


21/1? 










/-w r, ^ 


$ 1 / y 




1 vA' A Jl ^ 4 

v040l 


















\} \} :.! \} + 


/£< 




A A 


OA 




IMD 

Jrir 


pni n 
uUL.!.' 


uU 1 U New 


AAA A ♦ 










* 


















* 




r J. L.C. v u 




0020 1 










» 








0030 1 


232F 










ORG 


$232F 




0040* 


















0050 ; 


232F 


4C 


3C 


35 




JHP 


TABLE 


GOTO NEW 


0060 I 










i 








#01 ot 

0020? 














FILE 07 




0030 : 


2514 










ORG 


$2514 














* 








1 00501 










? USE 


THE OLD SPACE 


OF TABLE 
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0060 : 
0000 J 

0090 : 

0100! 

0:1.10? 

0120 J 

0:1 40 1 
oi'JiO: 

016Ot 

oi7o: 
0180 ; 

0t9Qt 
0200 t 
0210 J 
0220: 
02:^0 1 
0240 : 
0250 i 
0260 : 
0270 ; 
d2S0t 
0290 t 
0300? 
0310 J 
0320? 
0330? 
03401 
0350? 
0360? 

otiOJ 

0390 J 
0400? 

0410? 
0420? 
0430 : 
0440 : 

0450? 
0460? 

0470? 
0400? 
04Wt 
0500? 
0510? 

m20t 

0530? 
0540? 

osso? 

0560? 
0570? 
O*f06t 
0590? 
0600? 
0610? 
0620? 
0630 ? 
@#4#l 



i NEW SUBROUTINES. 
f 



2514 A9 00 

2516 85 6F 

tSl® m S4 

251A A9 05 

251C 85 71 

251 E AD A9 2E 

%.j A-.. .1. u %j /V 

^ 0 *M 3 kj X 2 

2525 60 



OS '3 A 

W «M 

**.. \j 4U n 
252B 
252D 

252F 

2533 

'J cr cr 

A- '.J \,} 

2537 
■253'9 
253Ef 
253D 



A2 00 

m 05 

18 

75 6F 
95 6W 
B5 70 
69 00 
95 70 
B5 6F 
C5 73 
15 7# 
E5 74 
60 



253E D8 

'253F 20' E7 2I» 

2542 A9 FF 

2544 85 63 

iO 



2547 

25 4 A 
254C 
254F 



BC l!5" 
Wi^ w 

O i::' Kv "t 

A.. W.' / 

255A 
25 5 C 
255F 
2561 

2564 



20 3E 25 

AO 00' 
B9 67 25 
20 FO 2D 

C8 

CO 14 
DO 1^5 
20 41 2E 
A2 00 
BD 00 Oi 
95 75 
ES 

£0 m 

DO F6 



i F^OUTINES TO RESET THE XREF-POINTERS 
? 

S:ETSY2 LPAIM $00 
STAZ SSLO 
STWZ Cf*T 
LDAIM *05 
STAZ SXLO 



LDA 

STAZ 
STAZ 
RTS 



SYHXRF 

SSHI 
SXHI 



ROUTINES TO ADD A TO XREF-POINTERS. 



DADS2 
DA0A2 



LDXIM 


$00 


LDAIH 


*05 


CLC 




ADCZX 


SSLO 


STAZX 


SSLO 


LDAZX 


SSHI 


ADCIM 


$00 


STA2X 


SSHI 


LDAZX 


SSLO 


CMPZ 


EXLO 


LDAZX 


SIHI 


SBCZ 


EXHI 


RTS 





ADD LENT0H OF ENTRY 



f ROUTINE TO CLEAR DEC-MODE 
> AND TO DO A CRLF 



CLDCRL 



9 
I 
t 
t 

i 

GETDAY 



CLD 

JSR 

LDAIM 

STAZ 

RTS 



CRLF 

$FF 
PMODE 



RESET PA6E-K0DE 



f®llf INI TO ACCEPT 
AND TO STORE IT 



GETDYl 



eETDY2 



JSR 

LDYIM 

LDAAY 

JSR 

I NY 

CPYIM 

BNE 

LDXIM 

LDAAX 

STAZX 

I NX 

CPXIM 

BNE 



CLDCRL 

$00 

TEKST 

DUTCH 



$14 

SETDYl 

BUFIN 
$00 

BUFFER 
DATE 

fO£ 

e€TDY2 



TME BATt 
IN lERO-PAOE. 

WAKE SUffE OF CtD 
TYPE 'ENTER DATE' 
GET A CHAR 
PRINT IT 

ALL DONE ? 

IF mf mxr 

ACCEPT DATE VIA BUFIN 

TRANSFER DATE 
TO ZER0-PA6E 

ALL Dom 
IF NOT » NEXT 



TIIE THINK-TANK COMF'ANY <TIC) 100679 PAGE 05 



0660 t 
06701 
06 HO? 
0690 ; 

0710 : 

0720 ; 

0740 : 
0750? 
07i#f 
0770 ; 
0780 3 
0790 1 

0300 ; 
OB:i.o; 

0830 : 
0840 1 

ossot 

0860 ; 

0i7O: 

0890; 

0900 : 

09101 

0920 ; 

0930: 

0950 J 
0960 : 
0970: 
0990: 
0990 : 

iooot 

:i. 0 :i. 0 : 
1020: 

1030t 

:i.04o: 
1050 : 
1060: 
1070 : 
looo: 

WW I 

1100 : 
iiio: 
ii2o: 

i:!.7;o: 
ii4o: 
ii5o: 
ii6o: 
ii7o: 

llSOf 

i:i.9o: 
i20o: 
1210: 

1 2 2 0 t 
1230? 

is?#0r 

1250; 



2566 60 



RTS 



FINISHED ♦ 



2567 45 

2568 4E 
'2m9 54 
2S6A 45 
256B 52 

2® 

256i:i 44 
256E 41 
25 6F 54 

2570 45 

2571 20 
■2572 28 

2573 44 

2574 44 
5575 m 

2576 4D 

2577 59 
'257® 5f 
2579 29 
257A 20 



257S 



AS 



413 



257D DO OD 
257F- £6 56 
2531 10 06 
2583 20 E7 2D 
2586 4C 7F 25 
2589 20 8F 25 
258C 4C 31 20 



258r AO 03 
2591 20 E7 20 

2594 88 

2595 DO PA 
2597 60 



2593 20 CD 2D 
259B 20 EE 2D 
259E 60 



SB 
S 



s 



f TABLE OF DATE TEXT 
J 

TEKST ' E 

/ 

'D 
'A 
'T 
'E 

' ( 
'D 
'D 

« 'M 
« 'M 
« 'Y 

a ' Y 

t 

> ROUTINE TO FILL THE LAST 

} mm OF THE PAit*2 m mmn 

$ TO GET A FULL PAGE AS LAST ONE« 
I 

EMfiF-A© LtiAZ Pf^FLA© WAS TNiRE A fWT 

BNE ENDPG3 
ENDPGl INCZ PGN 

BPL ENPPG2 

JSR CRLF PRINT A DUHHY LINE 

JMP ENDPGl 
ENDPG2 JSR 4CRLF JUST 4 MORE LINES 
ENDP63 JMP RE8TRT AND FINISHED 
? 
I' 

t ROUTINE TO PRINT 4 CRLF'S 
t 

4CRLF LDYIM $03 SET Y TO 4 TIMES 
4 CRLF 1 JSR CRLF 
DEY 

BNE 4CRLF1 ALL DONE ? 
RTS YES. 



i ROUT I ME OF SOME LOST 

f INSTRUCTIONS. 

» 

PRTID JSR HEX OUT PRINT IT 

JSR OUTSP AND A SPACE 
RTS 



I TEXT FOR MREF QWffTIOW. 



THF THINK-TANK COMPANY (TTC) 100679 F-'AG£ 06 

I 



•1 '■> /. A * 
.1. u \J t 

* i^ffi « 










TFYT 
1 CA 1 




A 

' R 


1280 ; 


25 A 1 


45 










'E 


:l.290 I 


25A2 


46 










'F 




25A3 


3F 










'? 


1 3 1 0 t 
















0010 t 










* 


^\ /fb /|\ 7^ 


FILE 08 ***** 


0020* 










* 






\y \s \/ ♦ 
















CtCiACit 










$ 

r 






Wv' W ♦ 


43* 'W' 




Al>( 






1 nATM 


wo AU.W wl«w 1 Vw 


U U O ' 4 
















Owl 0* 












^ %!/ ^ >t 

"T^ 


C"Tltr AO ^^^^u, 

r J. i_ c:. Kjy * ♦ * t •? 


' 0020 1 










* 






A t\ "y A ♦ 
















0040* 










« 

-* 












9A 










if) A Q ; 










MAT MR 


NOP* 




0070 t 










y 






' 0010 J 










y 




FILE OA ***** 


0020? 










i 






0030} 


':>/,'?'? 

A.. W likH <4« 












$2622 


0040 X 










A 

y 






0 0'"iO t 


2622 


20 


A 4 


33 

w w 




J SI? 


SPECIN SOTO SPECIAL BUFIN 


A ft A A 1 










$ 






A A 4 A * 










* 

9 


1* T- 1* 




0020 ; 

0030 1 


26FB 










ORG 


$26FB 












» 






A i:r /\ ♦ 






4 J 






(CD 


m ICCT ACk* VRfC F AMD WAtJC— TD 


AAA t 










7 
















* 

i 


^% 




0 '■' 0 J 
00 ■•10 1 










7 


OF^G 


$27111 


















0050 J 


271 tt 


4C 


7B 


25 




JMP 


ENDPAG GOTO MAKE THE PACE FULL 


i 0060 J 










« 






0010* 










; 


^^^^^ 


FILE on ***** 


0020 J 










; 






OO'-IOl 


^ ^ «H r 










ORG 


$272F 


' vvtv ♦ 






















PO 






ICC 


RTARR RflTn QPFTTAI RFTAPR 


0060 ♦ 










* 
T 






00 lot 










* 




r I Lr. v/c. 


0020 J 










f 






0010 J 


27C3 










ORB 


$27C3 


A AAA* 
















00*^0 t 


27C3 


f r / 


08 




DADX 


LDAIM 


$08 ADD 8 


0060 ♦ 










$ 






0010* 










f 




FILE OF ***** 


0020 J 
0030 J 


2837 








t 


ORG 


*2837 


0040 i 










f 






0050 J 


2 S3 7 




f 8 




FNDSBL UDAIM 


*F8 LENTBH IS 8 


00 AO t 










J 






ooiot 

0020? 










J 

A 


/f\ 


FILE m m*m 


0030 : 


287F 










OF^G 


$287F 


0040 : 










* 






0050*. 


287F 


20 


B5 


33 




JSR 


6TAR6 GET ARG WITHOUT 



nif THINK-TANK COMF-ANY (TTC) 100679 PAGE: 













i 


STORING A 


0070? 














0010 J 






























2894 










ORG 


0040? 














V w U V » 






r L' 




ADTABL JMP 












ADTBLR NOP 












i 




001 0 t 

' 0020? 










? 


^ ^ ^ U/ 

/f^ /|\ 


0030 ; 


29B0 








t 


ORB 


0040 J 










A 




ooeiot 


29B0 


AC 


5C 






JMP 


0060? 


29B3 


E-A 






OKSl NOP 


0070 : 


29 B A 


EA 








NOP 


ooeoi 

0010 ; 










f 




00':*0 J 


























ORG 


V V V/' > 










* 
f 






'•) Q tr n 


OA 


PA 






WWII 


1 ' A;i!*l'' Jl i% 4 

1 t/voO # 




E.n 








Ftwr 




a'., r 1 \/ .1. 


F"A 
r... n 








NOP 


AA<P A * 


'^AA'? 


TA 
L. n 








NOP 




OAAT! 
^ ri V o 


FA 

b*. r 1 








NOP 


oloo; 


2A04 


EA 








NOP 


01:1 0} 














0010 J 












ift jft 3j{ j|t 3|C 


0020: 














0030: 


2A12 










ORG 


0#40"$ 










* 




0050 : 


2A12 


20 


00 


35 




JSR 


0060 : 

\f \r \,t \f ♦ 


2A15 


EA 








NOP 


0#1*^dl 


'f AlA 










NOP 


0 0 0 0 t 


2A1 7 


F"A 








NOP 


A A O A * 




FA 
Cn 








NOP 


<J Z V' V * 














A A 1 A ♦ 












***** 


A A '■> A ♦ 










i 

T 
















ORG 


0040 1 










i 




1 0050 : 


2A2II 


AO 


02 






LDYIM 












i 














* 

9 


5^ 5^ 


0020: 










i 






2A35 










ORG 


0040? 










9 




0050 : 


2A35 


A9 


C4 






LDAIM 


0060* 










i 


DUE TO THE 


0070: 










r 














i 


}fc 3^ }|C 


0020: 










t 




0030; 


2C4£ 












AA4A 1 
V V *t V ♦ 














©OSOl 


2C4E 


40 










0060 : 










* 

t 




0010 ; 










* 




0030: 


SEll 








f 


ORG 



XREF 
FILE 11 
$2894 

INSIIi ALSO INSERT THE 

SYMID IN SYMBOL-ENTRY 

FILE 12 
*29BQ 

STRXRF STORE XREF-ENTRY 

FILE 13 **««* 
«29FD 

M4CRLF AT THE END OF A PAGE 
(IF PRFLAG IS ON) 

FILE 14 ttmt 

$2A12 

TOPPRT PRINT NEW SORT OF 
HEADER OF THE PAGE 

FILE 15 #««f* 
♦2A2D 

$02 THREE CRLF AFTER HEADER 

FILE 1& ««««# 

♦2A35 

*C4 CORRECT NUMBERS OF LINES 
4 CRLF'S 

FILE 17 ***** 

*ae4E 

$40 NO 'PAGi* YET 

FILE 18 ***** 
$2£11 



THE THINK-TANK COMPANY (TTC) 100679 PAGE 08 



0040 J 
















0050 : 


2E11 


20 


EC 


33 




JSR 


OUT-OD OUTPUT OD + 3 * 00 


0060? 
















0010 J 

Oof d * 












^ ^ U/ ^ 

^% 'F' 


FILE 19 ***** 




2EA3 








f 


ORG 


♦2EA3 


0040 « 
















OUiSO ♦ 










f NEW 


RAW«DI VISIONS 


A A y A * 

V voO <■ 










A 






A A "Tf A ♦ 

00/0 * 


.•2cA>j 


>j3 






o r\ 1 1 c!i M 
SGUISLn 




cjniiC'Ptr — TAiiic ~ 1 
vuo oUUrsL.1::. 1 nciLc. X 


A An A t 


2tn4 


34 






SUUhLE 




wo'h a 1 nh 1 Ur aUUrsUt. 1 nt>Lt 


0090 J 


2E Ad 


6 4 






f*^ 1 1 fi r" 




* C> t:. N 1.' U r C> U U r'l L- 1. Ill f.' I., t:. 


0:1 00? 


2EA6 


40 






SYME<OL 




<t A A c; T A P T n F C! Y M R n 1 — T A li 1 C 

1> *HJ ;> 1 n r\ 1 U r S> I n 1? U I- 1 n £( L, c. 


0 :i. 1 0 1 


2EA7 


54 






SYMF 




T <J *♦ t:. N 1.1 U r i> T n ti U L. 1 n £1 u c. 


0120 : 


2EA8 


9C 






OBJECT 


■BE 


*9P qTAp r nr.- nti irrT~-P!l tPTTR 


0:1.30 5 


2EA9 


64 






SYMXF^F 


Si 


*AA QTACVT nr ypPT — TARI P 
voM c> 1 nr. 1 Ur .AP.c.r 1 ni?L.E, 


0:1.40 J 


2EAA 


9C 






SYMMAX 




V y L.- t„ r< u u r .'i r\ t.. r i n r.' 


0150 : 


2EA1E! 


EA 








NOP 




oi6o; 




20 


98 


J& w 


ERID 


<J5>n 


PK'TTri RPPI ATF T M<5TPI ITT T nWC! 


0170? 










} 






0 0 '1 1 










A 

i 


•!f* *p 




0020 * 










ft ' 
f 




















*'>ptro 












t 






A A I"" A ♦ 


O P" P 9 

Im4 Ih* r 


ri A 








BNE 


P P' T fi 1 1 1 M [> T n U P I.I P P' T T"l 

t,hj.l.i JUnr lU INCW PhJ.!.' 


A A y A # 

006O » 










* 

f 






00101 












i|c sjt ijt 3jc !y 


FILE 11 *»#*# 


0020 J 










i 






00301 


30D9 










ORG 


*30D9 


0040 5 
















0050? 


30119 


E9 


06 






SBCIM 


*06 CORRECT SMALL ERROR 


0060 5 










ft 

y 






0010 5 










* 






0020 5 










ft 

» 






0030: 












ORG 


$3390 


0 040 5 
















00501 
















OwoOT 










? ROOfiNf to 


RESET THE M0RESS- 


A A "V ♦ 










? POINTERS OF THE XREF-TABLE AND 


A AOA ♦ 










f TO RESET THE SYMID 


#VA<^'A' 










r 






A 1 A r\ ♦ 


"/ "7 O A 

-.5 6 V 0 


A A 

AO 


A A 




RESSYM 


LDYIM 


$00 


0 1 1 f ■• 5 


"s'^ "7 o '*? 


84 


7D 






STYZ 


XRFIND CLEAR XRF--FLAG 


01205 


3 :3 9 4 


84 


41 






STYZ 


ELO ALSO RESET ELO 


0 130 5 


3 3 9 6 


84 


6D 






STYZ 


SYMI D 


01405 


3398 


84 


6£ 






STYZ 


SYMID +01 


01505 


339A 


84 


71 






STYZ 


SXLO 


0 160 5 


339C 


AD 


A9 


2E 




LDA 


SYMXRF 


01705 


339F 


85 


72 






STAZ 


SXHI 


0100* 


33A1 


AC 


Fi 






JMP 


nmm and return 


A H O A ♦ 

0 1 > 0 1 










i 






A OA A ♦ 










t 






U £.X\t * 










? fmnti!«rE TO 


PRINT A POIWT itmiNi PASf-i 


ATI A ♦ 










; IF THE PRINT IS OFF f TO RECOONISE THE 


A O "/ A * 










i END 


OF THE 


PASS-2. 


0240t 










J 






0250 1 


33A4 


A 5 


4C 




SPEC IN 


LDAZ 


PASS CHECK IF PASS-2 


0260 5 


33A6 


DO 


09 






BNE 


NO PUNT IF NOT? NO POINT 


0270 5 


33A8 


A5 


411 






LDAZ 


PRFLAG CHECK IF PRT IS OFF 


0200 J 


33AA 


FO 


05 






BEQ 


NOPUNT IF NOT ? NO POINT 



Tlir:: THINK-TANK COMF-ftNY 



(TTC) 



100679 PAGE 0? 



0290 


33AC 


A 9 


2E 






LDAIM 


/ 




0300 


33AE 


20 


FO 


2i:i 




JSR 


OUTCH 




03:1, 0 


33B1 


20 


41 


2E 


NOPUNT 


JSR 


BUFIN 


BET ID'S 


0320 


\ 33B4 


60 








RTS 
















% 








0344 


















0350 ' 










» ROUTINE TO 


GET A 


ARGUMENT 


01&0 1 










1 WITWUT STORING A 


XREF 


0370 


















*^ P A ^ 
w SJ 


~K 1 p 1=; 




UP 




T A p n 


JSR 


PSSXLO 


SAVE SXLO ETC 


03901 


33"1''@' 


20 


8B 


29 




JSR 


6ETARG 


FIND SYMBOL 


0400 ; 


33BB 


20 


III 


33 




JSR 


PLSXLO 


RESTORE SXLO ETC 












A 








n 4 n ! 

V t A.. S/ < 










A 








0430 ! 










> ROUT 


i:ne TO 


SAVE SXLO » SXHI» 


0440 










; EXLO 


AND EXHI 




0450 
0460 


33BE 


48 






PSSXUO 


F'HA 




SAVE ACCUM 


0470 


33BF 


A 5 


71 






LDAZ 


SXLO 




0400 


33 CI 


85 


7E 






STAZ 


SAVE 




0490 


33C3 


A 5 


"?'•> 






LDAZ 


SXHI 




0500 


33 C5 


85 


7F 






STAZ 


SAVE 


+ 01 


0510) 


\ 33C7 


AS 


73 






LDAZ 


EXLO 




0520 


33C9 


85 


80 






STAZ 


SAVE 


+02 




37rR 










LDAZ 


EXHI 






1 o O W u 










STAZ 


SAME 


+03 


\/ :.f V 


33CF 


68 








PL A 




RESTORE ACCUM 


05 AO ' 


1^ w !•* w 


60 








RTS 






0570 
0500 


















0590* 










; ROUTINE TO 


RESTORE SXLO» 


0600 










; sxHi 


» EXLO» 


EXHI* 




0610 










A 

y 








0620! 


33D1 


48 






PLSXLO 


PHA 




SAVE ACCUM 


0*30 


\ 33D2 


A5 


81 






LDAZ 


SAVE 


+03 


0640 


33D4 


85 


74 






STAZ 


EXHI 




0650 


33D6 


A5 


80 






LDAZ 


SAVE 


+ 02 


0660 J 


t 3308 

^•f %tf At' 


85 


73 






STAZ 


EXLO 




0670 


' 33DA 


A5 


7F 






LDAZ 


SAVE 


+01 




3 x II r 


R5 


-•, 






STAZ 


SXHI 




\/C>Tv * 


<.7>3UC. 




/ C 






LDAZ 


SAVE 




0700 i 


33ro 

W 1.7 C- V 




71 






STAZ 


SXLO 




071 0 i 












PLA 




RESTORE ACCUM»„. 


072O1 












RTS 






0730 : 


















0740 










!! 








0750 5 










5 ROUTINE TO 


CHECK 


IF PRFLAG IS OFF 


0760* 










» IF NOT ? TO PRINT 


4 CRLF'S 


0770 










A 

» 








0700* 


33E4 


AS 


4D 




M4CRL,F 


LDAZ 


PRFLAG 


CHECK FLAG 


0790 ! 


33E6 


DO 


03 






BNE 


M4CRL1 




0800! 


33E8 


20 


8F 


25 




JSR 


4CRLF 


PRINT THEM 


mim 3» 








f44CRtl 
* 


RTS 




NO PRINT 


OilO! 










y 








0840 { 










f ROWTlWf to 




A CAR^IAGI fttfUW* 


0B50! 










5 AND 


3 TIMES 


A NUL 


... TO GIVE THE TTY 


0860! 










% TIME 


TO RETURN TO 


THE BEGINNING OF 


0S7O! 










f TME 


LINE. 






08I1OI 










% 
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0B90 t 


33EC 

W W 1m w 


'*0 


AO 


2E 


OUT-OD JSF^ 


OUTPUT 


A CR 


\f 7 \/ V # 




M% 
FIT 






1 TlATM 
Im. XI n X 1 1 




«?ET COUNT TO 3 




0>3r J. 




/ c 




e5TA7 
o [ nx* 


CiAUF 
wn vc 




/\ r\ -n A ♦ 


>5or s5 


AO 

nr 


A A 




n 1 1 T A T'l 1 1 ri A T M 


* AA 






-y -T r" c 


OA 

20 


A A 

nw 


oc 


Jors 


CM ITCil IT 

UU 1 r U 1 




■J T ''T V + 


"T 'Tf E" O 


L.O 








Z: n V t:. 


p n 1 1 M T — 1 


o A • 


■7 ~i r." A 


flA 


r / 




BNE 


OUTODl 


NOT FINISHED YET 


A <a A A ♦ 




Aft 






RTS 




READY . 


09701 
















0900 : 










■ 






0990 : 










? F^iDUTINE TO 


INSERT 


THE SYMID 


lOOOt 










; IN THE SYMBOL-TABLE AND TO 


1 0 1 0 : 










J PLACE TQ FIRST XREF OF THIS 












% SYMBOL IN THE XREF-TABLE 

A 


1 0 3 0 t 

1 O .A n I 


•7 -r c- fi 


n au 


00 




7 

INSID LDXIM 


$00 


FOR THE IX-INSTR 




0 or r 


o-t 

T Jl 


41 




STAIY 


ELO 


STORE PC 


1 Cl A Oi 

X \ f K.f V ♦ 


0 ^ V J. 


PR 






INY 




Y ON SYMID -PLACE 


•1 A "7 A ♦ 

1 u / u » 


"7 j4 A*") 
0 M U »i 


n*j 


A I'l 




LDAZ 


SYMID 


GET SYMID 


1 080 ♦ 


<*f Jl ^ uft- 

3404 


¥1 


41 




STAIY 


ELO 


AND STORE IT 


•1 A O A * 

J. U V U « 




AO 


CJ A 




ORAIM 


$80 


MAKE BIT ' « 1 


1 .1 0 0 » 






.... J 

/ 1 




STAIX 


SXLO 




i 3. 1 1 U ♦ 




OA 


Aitk 




JSR 


INSXLO 


ADD 1 TO SXLO 


1 1 '^0 ! 


34 on 


rs 

w w 






INY 






1 130 t 


340E 


A5 


6E 




LDAZ 


SYMID 


+ 01 


ii4o; 


3410 


91 


41 




STAIY 


ELO 


THE SECOND PART OF IT 


1 150 t 


3412 


81 


71 




STAIX 


SXLO 




ii6o: 


3414 


20 


29 


34 


JSR 


STRRST 


- . 1 AAA MAt A#A |*« |»f HA 1 A A AAA* AAA |*»A AAL AW* 

AND STORE THE REST 


1170 J 


3417 


18 






CLC 




ADD 1 TO SYMID 


1 iBO ; 


3418 


A 5 


6E 




LDAZ 


SYMID 


+01 


1 1 <?o t 

.b X 7 V t 


■X4 1 A 
%j ^ J. n 


A9 


0 1 




ADCIM 


^!i01 






■"14 1#* 








STAZ 


SYMID 


+01 


J. A.. .1. V t 


34 1 F 


A"j 


w 1.' 




LDAZ 


SYMID 




1 OOA ♦ 
•t> 4m. «H> Vr + 


"i '"> A 


AO 


AO 




ADCIM 


$00 








oD 


oil 




mm 


SYM10 




•I '■> J\ A • 


"X A'~iA 








LDXIM 


$02 


RESTORE I NSTRUCTIONS 


.1. rf.. %.l u » 


X A '"1 A 




7 / 


auO 


JMP 


ADTBLR 


AND GO BACK 












> 






.1. jr.. / V ♦ 










A 

f 






1200 J 










i ROUTINE TO 


STORE 


THE ID AND 


1290J 










J THE LINE-NUMBERS 


IN THE XREF -TABLE 


1300? 










A 






1 3 1 0 J 


3429 


20 


4A 


34 


STRRST JSR 


INSXLO 


ADD 1 TO SXLO 


13201 


342C 


AS 






LDAZ 


ID 


©ET ID 


1 ; 


342E 


81 


71 




STAIX 


SXLO 


AND STORE IT 


1 340 1 


3 430 


'.■'0 


4A 


34 


JSR 


INSXLO 






0 *f «3 <9 


flvj 


J. 0 




LDAZ 


NHI 


MIW^-OflDfR WyMBER 


■I "r /. A ♦ 


0 -4 w' ij 


0 J. 


.-■ J. 




STAIX 


SXLO 


AND STORE IT 


.1. O / U ♦ 


'T! A 'I ") 


OA 
a:; V 


A 




JSR 


INSXLO 




1 0 1 






4 K 

1 D 




LDAZ 


NLO 


GET LOW-ORDER NUMBER 


1 TfPA • 


"x At.r 

\J *T U 




7 1 




STAIX 


SXLO 


AND STORE IT 


.1. *t\/ W ♦ 


"j; .d 7 f " 

0 *? 0 H- 


'? 0 


4 A 




JSR 


INSXLO 




14101 

1 J. " .1. V # 


34 41 


A 5 


7 1 

/ J. 




LDAZ 


SXLO 


A JUST MAX -POINTERS 


1420 : 


3443 


85 


73 




STAZ 


EXLO 




1430: 


3445 


A5 


72 




LDAZ 


SXHI 






144f 


ii 


74 




STAZ 


EXHI 




1450: 


3449 








RTS 






1460? 










1 







1400? 



i ROUTINE TO ADD 1 TO SXLO 



THE 



THINK-TANK COMPANT 



1490 : 
1500? 
1510? 

•1.530? 



1550? 
1560? 



1580? 
1590? 
1600? 
1610? 
16201, 

t^mt 

1640? 
1650? 

1660? 

1670? 

1600? 



34 4 A 

3 4 4 1- 
34 4 E 
3450 
3452 
3455 
3457 
3459 
345B 



E6 

DO 
E6 

CD 
DO 
C6 
C6 
60 



71 

on 

72 



on 1 BY HlGH-OBt'Eft 
JhECK If HOT TOO FAR 



AA 
04 
71 
72 



2E 



SXLO 

SXHI 
SXHI 

SXLO FOF.CE bAi.u n 
SXHI TO HftX - 1 



1730? 
1740? 
1750 1 
1760? 
1770? 
If BO I 
1790? 
0010? 

0030? 
0040? 



0060? 
0070? 

0090? 

0100? 



345C 
345E 
3460 
3462 
3463 
3465 
3467 
346A 
34 6B 
34 6D 
34 6 F 
3472 
3474 
3477 



A5 

DO 
A2 

cs 

Bl 
81 
20 

ca 

Bl 
81 
20 
A4 
B9 
4C 



12 
00 

3F 
71 

4ft 34 



INSXl-O I.NCZ 
BNE 
INCZ 
LDAZ 

criP 

BNE 

DEC?. 

DECZ 
INSXLR RTS 
$ 

! r.niiTTMt TO STOF-iE A 
; F'lOUTINe. «w - UIITH 

^TRXRf XHriNB CH.CK IF BLOCKED 

LDXIM *00 

LDAIY StO 
8TAIX SXLO 

INSXUQ 



GET SYMID 
AND STORE H 



3F 
71 

31 



34 



B3 29 



JSR 
INY 
LOAIY 
STAIX 
JSR 
STRXFl l-BtZ 



SLO 
SXLO 
STRR 
YCOM 
LBAAY BUFFER 
jMP OKSl 



GF'T LAST PART 
AND STORE IT 

RESTORE INSTR 

ftNTi RETURN 



***** FILE ID ***** 



f -r.cm -^SOO MUST BE KEPT FREE 

tH€ AREA OF ^^^^^''^^ % v-COMMAND 

* cImrE of that this FILE WILL BE 

f TO MAKE SHURE OF » »n 
\ GIVEN A ORG OF 3500 ♦ 



3500 



0120? 

0130? 

0140? 

0150? 

0160? 

0170? 



ORG fSSOO 

PRINT THE TOP 
EMBLYLI8T 



FsOUTlNE TO 
ft PASS~2 AS 



OF 



§100 ? 
0210? 
0220 ? 



0240? 
0250 ? 



0270? 
0200 ? 



3500 
3502 
3504 
3506 
3509 
350B 
3 SO© 
3510 
3511 
3513 
3516 
3519 



A5 

DO 

AO 



4D 

35 
23 



TOPPRT 



S9 Sa 2C TOPPTl 



2D 



351B 
151D 
3520 
3521 



40 
FO 06 
20 FO 

DO F3 
20 EE 2D 
20 EE 2D 
A2 00 
B5 7S 
20 FO 



2D 



E8 

EO 06 
DO F6 



LDAZ 
BNE 
LDYIM 
LDAAY 
CMPIM 
BEQ 
JSR 
INY 

JSR 
JSR 
LDXIM 
T0PPT3 LDAZX 
JSR 
INX 
CPXIM 
BNE 



PRFLAG 
T0PPT5 

*23 
MESSe 
*40 

TDPPT2 
DUTCH 



T0PPT2 



TOPPTl 
OUTSP 
OUTSP 
$00 
DATE 

outch 



$06 

T0PPT3 



CHECK IF NO PRINT 

PPiHT FIRST PART 

OFT A CHAR 

FHD ••CHAP 

If 30 » STOP 

xF NOT mm IT 

NEXT ONE 

TWO SPACE 

PFaNT THE DATE 
GET A DATEH*U1IB 
p^lNT IT 
}.)FXT ONE 
DONE t 

IF NOTr 60 ON 
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I 



0300 


> ■■! k; ur 

w -.J 


20 


EE 


2D 


0310; 3528 


20 


EE 


2D 


0320 ; 352B 


ce 






0330 ; 352C 


B9 


OA 


2C 




t O vJ J.', r 


C9 


40 




K.f\f ^ J 'J 


> "J k; -r 1 

O V..' .1. 


F"0 

r V 


OA 




'■J O O V 


5.. ... 

W w< 0 




r V 


':>ri 


0370 ) 


f 3536 






OvJ 


0380* 


3539 




06 




0390 


353B 


60 






0400 










0410 










0420 










0430' 










0440 










0450 










S/ ^ w V 

0 4 0 


w 


A6 

EO 


lA 

02 




\}HVi\) 


0 s..' C 

[ 0 u 


I- 0 


04 




04tO 


i o%j4J 


EO 


03 




A A A 


1.7 ..J ■4 


DO 


ID 




0 a 1 0 




'•>A 


r 7 








rfO 


1 n 






! 7 "^^ 4 r-: 


I... V 






V V..' V V 


w? w " 1.' 


r V 


1 1 




0550 


t 354F 


AS 
n w 






0560 


; 3551 


85 


41 




0570 


' 3553 


A 5 


IE 




05S0 


\ 3555 


85 


42 




0590 


! 3557 


20 


E7 


2D 


0600 


t 355A 


A 2 


02 




0410 


! 355C 


86 


lA 




0620 


! 355E 


DO 


E6 




0630 


! 3560 


4C 


31 


20 


0&4#t 3563 


n y 


^0 

\ir\r 




0650: 3565 


R5 

V..' 


7B 




0660 J 3567 




/ w 












0680 : 356C 




1 A 

X n 




0690? 356E 


E'O 


03 




0700: 3570 


30 


09 




07:1. 0 


[ 31=172 


20 


CD 


35 


0720 : 3575 


20 


03 


36 


0730? 3578 


4C 


7E 


35 


0740 : 357B 


20 


B7 


36 


0750 : 357E 


A5 


7C 




wmt mm 


©i 


56 




0770: 3582 


4C 


7F 


25 



0780: 

0800J 
OSlOt 

mmi 

0830 : 

0«40: 3585 20 E6 25 

■os®ot »s»® m lA 

O86O: 358A 4A 
0870 : 358E BO 11 

oii^i a^t m oo 

OS?0t 358F il 55 



JSR OUTSP 
JSR OUTSP 
T0PPT4 INY GET NEXT CHAR 

LDAAY MESSG OF HEADER 
CMPIM $40 
DEC? T0PPT5 
JSR OUTCH 

JMP T0W4 GOTO NEXT ONE 
T0PPT5 LDAIM $00 FORCE BE9 ON RETURN 

RTS 

? 

5 F^OUTINE TO DETERMEN WHAT KIND OF 
? TABLE PROCESSING IS WANTED AND 
f TO EXECUTE THE DESIRED COMMAND 
? 

TABLE LDXZ LOPAR 
CPXIM $02 
BEQ TABLEl 

cpxrw *03 

BNE TABLE3 
TABLEl JSR PRTSl 
tmi LOf>AR 

CPXIM $02 

BEQ TABLE2 

LDAZ LOPAR 

STAZ ELO 

LDAZ HI PAR 

STAZ EH I 

JSR CRLF" 

LDXIM $02 

STXZ LOPAR 

BNE TABLEl 
TABLE2 JMP RESTRT 
TABLE3 LDAIM fOO 

STAZ PA0E2 

STAZ PGN2 

JSR SORTl 

LDXZ LOPAR 

CPXIM $03 

BMI TABLE4 

JSR S0RT2 

JSR PRTXRF" 

JMF' TABLES 
TABLE 4 JSR PRNT 
TABLES LDAZ PGN2 

STAZ PON 

JMP ENDP61 

I 
f 

? ROUTINE TO SORT THE SYMBOL -TABLE 
} ON ADDRESSES IF LOPAR IS ODD 
f OR ON SYMBOLS IF LOPAR IS EVEN 

A 

9 

SORTl JSR 3ETSY RSET SYMBOLPOINTERS 
LOOPT LMI LOPAR ADDRESSES OR 8YMB 

LSRA 

BCS LOOPB 
LDYIM fOO 
NEXTY LDAIY XLO COMPARE 



ONLY ADRESSES ? 

A COMPLETE TABLEPRINT ???? 
IF SO !. ANALYSE IT 
PRINT ADRESSES 
ONLY A PRINT ? 

YES» THEN FINITO 
+01 NO* ALSO A CHAN6E 

401 



FORCE A NEW PRINT 
OF THE ADDRESSES 

AND RETURN TO EDITOR 
SIT COUWTEf* 
TO INITIAL VALUES 

SORT SYMBOLTABLE 



ONLY SYMBOLPRT 
SORT XREFTABLE 
PRINT XREF 
AND RETURN 
F'RINT SYMBOLS 
F-ORCE ENDPGl TO 
FILL UP THE PAGE 
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09001 

0920 : 
0930 J 
0940J 

(^vr.o t 

0960 : 
0970: 

0900 ; 

0990? 

fmm 

1 0 1 0 : 

1020 J 
1030? 
1040 t 
1050? 
1060! 
1 070 J 

1000 : 

lOf^OJ 
iioo: 
iiio: 

I tmt 

:l 130 J 

ii4o: 
iiso-t 
1160: 
ii7o: 

litOI 

II to J 
12001 

1210: 

1220: 

ooio: 

0020? 

0030 : 
0040 ; 
0050 : 
0060 : 
oo7o: 

00 §01 

0090 : 
0100 : 
Olio: 
0120 : 
0130 : 
oi4o: 
oi5o: 
0160: 

01701 

01 go: 
0190 : 

0200 1 

021 o: 

0220 : 

02So: 

0240: 
0250 ; 
0260 : 
0270 : 



3591 

35<?5 
3597 
3598 
359A 
359C 
3S9E 
35A0 
35A2 



35A5 
35A7 
35ft9 
35AB 
35Ari 
3MP 
3 5 BO 
35B2 
3514 
35B5 
35B7 



35BA 
35BC 
35BE 
35C1 
35C3 
35C& 
35CS 
35CA 
35CC 



3 51:14 
35D6 
35D8 
35DA 
35DB 
35DD 
35DF 
35E1 
3'5f3' 
35E5 
35E6 

35EA 
35EB 
35eD 

3 5 F E 
35F0 
35F2 
35F4 



Dl 3F 
90 

DO 27 
CQ 

CO 04 
DO F3 
FO 20 
AO 04 
El 55 
Dl 3F 
C8 

El 55 
Fl 3F 
»0 13 
AO 07 
Bl 3F 
4® 

Bl 55 
91 3F 
SB 

91 55 
88 

1© F3 

A9 01 
85 54 
20 CI 27 
A2 16 
20 C3 27 
90 CO 
A6 54 
DO B9 
60 



35CD 20 
35D0 AO 
3Sfr2 Hi 



Dl 
90 
DO 
C8 
CO 
DO 
FO 
AO 
Bl 
43 
Bl 
91 
68 
91 
88 
10 
A9 
85 
20 



14 
00 
71 

6F 
09 
lA 

05 
F3 
13 
04 
6f 

71 
*F 

71 

F3 
01 
54 
2d 



LOOPS 



MOUEX 
MOVET 



LESS 



CMPIY 

BCC 

BNE 

INY 

CPYIH 

BNE 

BEQ 

LDYIM 

LDAIY 

CMPIY 

INY 

LDAIY 

SBCIY 

BCS 

LDYIM 

LDAIY 

PMA 

LDAIY 

STAIY 

PLA 

STAIY 

DEY 

BPL 

LDAIM 

3TAZ 

JSR 

LDXIM 

JSR 

BCC 

LDXZ 

BNE 

RTS 



SLO 

LESS 

t04 
NEXTY 
LESS 
♦04 

XLO 
SLO 

XLO 

SLO 

LESS 

$07 

SLO 

XLO 
SLO 

XLO 

MOVET 

*01 

CNT 

DADS 

$ 1 6 

DADX 

LOOPT 

CNT 

SORTl 



FOR 

ALFA 

SORT 

ALL CHAR COWPAREB 

IF NOTf NEXT 
IF SO t NO MOyE 

COMPARE 

wm mmm 

SORT 



EXCHANGE ENTRIES 
GET ONE OF SLO 
SAVE IT 

AND ONE OF XLO 
STORE IT IN SLO 

OET SAVil SLO 
AK'D STORE IT IN XLO 
NEXT ONE 
m STILL AHY 
INDICATE A MOVE 

SLO a SLO +8 

XLO = XLO + 8 

IF STILL ENTRIES J 00 OH 

ANY CHANGES ? 

IF S0» FROM THE START 

IF NOT READY 



r 

A 

f 

f ROUT 
t SYMI 
J 

S0RT2 

L00PT2 

WfXTY2 



***** FILE IE ***** 



M0VX2 



LESS2 



INE TO 
D ? ID 

JSR 
LDYIM 
L»AfY 
CMPIY 
BCC 
BNE 
INY 
CPYIM 
BNE 
BEQ 
LDYIM 
LDAIY 
PHA 
LDAIY 
STAIY 
PLA 
STAIY 
DEY 
BPL 
LDAIM 
STAZ 
JSR 



SORT THE XREFTABLE ON 
f LINE-NUMBERS. 



RESET XREFPO INTERS 



IF 
IF 



S3L0 
SSLO 



SETSY2 

$00 

SXLO 

SSLO 

M0VX2 

LESS2 

*05 

NEXTY2 
LESS2 
$04 
SSLO 

SXLO 
SSLO 



SXLO 

M0UET2 

$01 INDICATE 

CNT 

DADS2 SSLO 



SXLO 
SXLO 



COMPARE NEXT ENTRY 

ALL CHAR HAD ? 

IF NOT NEXT ONE 

IF YES , A EQUAL ONE 

EXCHANGE SSLO 

AND SXLO 



A MOVE 
SSLO + 5 
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0200; 3SF-7 A2 02 

0290 t 35F9 20 28 25 

0300 3 35FC 90 D2 

0310? 35FE A6 54 

0320 : 3600 DO CB 
0330t 3602 60 
0340! 
0350 } 

0370 J 

0300 : 

0390 1 

0400t 
04:1.05 

0420 J 3603 20 E6 25 

0430: 3606 20 EB 36 

0440 t 3609 20 A4 25 

0450? 360C AO 04 

0460 : 360E Bl 3F 
0470? 3610 AA 
04t0t 3611 C8 

0490 t 3612 Bl 3F 

0500 : 3614 20 C9 2D 

0510 J 3617 20 14 25 

0520 : 361 A ce 

0530 : 36 IB Bl 3F 

mm% 3#iB Of w& 

0550 J 36 IF 85 615 
0560 : 3621 C8 

0570 : 3622 Bl 3F 

0500 t 3624 85 6E 

0590? 3626 20 6F 36 

0600 : 3629 20 98 36 

0610 ; 362C 20 14 25 

0620? 362F A5 6D 

06301 3631 29 7F 

0640? 3633 85 6D 

0650 : 3635 20 6F 36 

:<f'i,|||'0| '16'¥i F'O' '©A' 

0670 : 363A 20 DF 36 

0680 : 363D 20 CI 27 

0690 t 3640 90 C7 

0700? 3642 BO 2A 

0710? 3644 A9 FB 

0720J 3646 85 54 

0730? 3648 E6 54 

0740? 364A 30 OD 

0750 J 364C 20 DF 36 

0760? 364F AO 18 

0770? 3651 20 EE 2D 
07001 36S4 m 

'">;'90? 3655 DO FA 

0800? 3657 FO EB 

owi'Of mm- m m 

0820? 365C 20 26 25 

0830? 365F BO 05 
mmt 3661 20 6F 36 

0850? 3664 FO E2 

0860? 3666 20 DF 36 
08701 3669 20 CI 27 



LDXIM $02 SXLO = 8XL0 + 5 
JSR nADX2 

BCC L00PT2 STILL ENTFUES 
LDXZ CNT NO CHANGES ? 
BNE S0RT2 YES 
RTS NO 

I 
t 

f R®l»TIIiii TO PRINT OUT A 

i LIST OF ALL THE SYMBOLS? THEIR 

i ADDRESSES f THEIR LINE-NUMBERS AND 

t THE LINE-NUMBERS WHERE THE SYHfOL 

I IS USED. 





Joh 


c c T c; Y 
bt 1 bl 








Ci C T" 0 /\ 

r h 1 bO 


DC'TKIT ITTPCST l-l t" A T'l 1- FJ 

rnJ.NI r Ana 1 nl:;nJL'i,.iv 


Ci c. T Y C 1 
r n 1 Ar 1 


ICR 

Jars 


r no T Ft 


r r>* PI f f rlfa S 1 flXf%t^. 




1 II Y T M 


404 

V V *T 






1 ri A T Y 








T AY 
















Ll'A J. Y 


b L U 






JSR 


HEXAX 


AND IiS ADDREbb 




JSR 


e»c iri!> 


SET AhtrrUlNlcKo 




INY 








LDAIY 


SLO 


GET bYMID 








llnKE BIT7 » 1 




STAZ 


SYMIB 


SAVE IT 




INY 








1 ft A T V 

LIJ A 1 Y 


:>Lu 






OTA "y 
bin/.. 


b T n 1 1.1 


T V .1. 




V.I 0 fs 


f IN jL' A > ^ r 


w? c. n r% i... 1 1 1 'J r> j. i 






P R T c; Y M 


PRINT IT 












L. u n 


c; Y M T fl 
...> I 1 1 J. 1.' 






ANHTM 

n rc ju> A 1 1 


'£7r 

V / r 


MAKF BIT7 « 0 




-n) 1 n/„ 


Q Y M T ri 

0 T n I. u 






Jbh 


Cr Kl T*l V C' c* 


r- T Mil T T 
r J. Nil I 1 






FrS 1 £ 






JSR 


r*i r*i "Y* 1 T \ t 

PRTLIN 


FRINT THE. LINE:. 




JSR 


DADS 


GOTO NEXT SYMBOL 




BCC 


PRTXFl 


STILL ONE IN THE TABLE 




BCS 


PRTXF7 


ALL DONE 


PRTXF2 


LDAIM 


$FB 


FOUR XREF ON A LINE 




STAZ 


CNT 




PRTXF3 


INCZ 


CNT 


SPACE LEFT ? 




BMI 


PRTXF5 


YES 




JSR 


PRTLIN 


NO^ PRINT LINE 




LDYIM 


$ 1 8 


PRINT 24 SPACES 


PRTXF4 


JSR 


OUTSP 






OlY 








BNE 


PRTXF4 






BEQ 


PRTXF2 




PRTXF5 


JSR 




Pmm XREF-ENTRY 




JSR 


DADS2 


GOTO NEXT ONE 




BCS 


PRTXF6 


NO MORE LEFT 




JSR 


mmm 


sf#tReH pm Mt^T 




BEQ 


PRTXF3 


IF ONE PRT IT 


PRTXF6 


JSR 


PRTLIN 


FINISH LAST LINE 




JSR 


DADS 


6QT0 NEXT SYMBOL 
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0880 J 366C 90 9B 
0890 t 346i ## 

0900 t 

09io: 

0920 1 
0930: 
0940: 

0950: 36 AF AO ©1 

0960; 3671 Bl 6F 
0970 : 3673 C5 6E 

oftoi m 

0990 t 3676 Bl 6F 

JOOO; 3678 E-5 6D 

f#10! 3*^A BO 07 

1020 : 367C 20 26 25 

1030 : 367F 90 F.E 

1040: 3681 BO 12 

1050 t 3683 AO 00 

1060 J 3685 A5 6D 

1070 : 3687 M 6f 

1080 ; 3689 DO OA 

1090 J 368B A5 6E 
11 00? 3#ei> C® 

mot 368E Dl 6F 

ii2o: 3690 no 03 

ami 3692 A9 00 
11401 3694 60 
1150 J 3695 A9 FF 

ii«0? m 

ii7o: 
0010 : 
0020 : 
0030 ; 

0040t 

0050 : 3698 20 EE 2D 

0060 J 369B 20 EE 2D 

0070 : 369E AO 02 

0080 J 36A0 Bl 6F 

0090 : 36A2 20 CD 2D 

OlOO: 36 A5 A9 2D 

Olltf 3<SA7 20 FO 2D 

0120 : 36 A A C8 

0130 : 36AB Bl 6F 

01 40 J 36 AD 48 

01 50 J 36 AE C3 

0160; 36AF Bl 6F 

0170: 36B1 AA 

OlSO: -3622 63 

0190 : 36B3 20 C9 2D 

0200 : 36B6 60 

0210 : 

0220: 
0230 : 
0240 : 
0250 : 

mm^t 3&97 20 E6 m 

0270 : 36BA 20 EB 36 

0280 : 36BD A9 FB 

0290 : 36»F m 

0300 : 36C1 £6 54 



BCC PRTXFl IF STILL LEFT 
RTS ALL DONE 

A. 

* 
f 

I «0uf iM ft rsw» ft with 

$ THE iAHE ID AS SYMID 

fm^m Lmw toi 

LDAIY SSLD 

CMF'Z SYMID +01 

DEY 

LDAIY SSLO 
SBC2 SYMID 

DCS MAYBE EITHER > OR « 
FNDXFl JSR DADS2 GOTO NEXT ONE 
iCC FNDXRF 

Bcs mm mm mum 

MAYBE LDYIM $00 

LDAZ SYMID 
OiWir SSLO 
BNE NOGO 
LDAZ SYMID +01 

CMPIY SSI...0 

BNE NOGO 

COGO LDAIM $00 

F^TB 

NOGO LDAIM *FF 
RT8 

y 

i ***** FILE IF ***** 
$ 

i ROUTINE TO PRINT THE XREF-ENTRY. 

A 

f 

PRTSYM JSR OUTSP FIRST TWO SPACES 

JSF; OUTSP 
LDYIM $02 

LD^rY SSLO GET TAPE-ID 
JSR HEXOUT PRINT IT 
LDAIM 

JSR OUTCH 

- INY 

LDAIY SSLO GET LINENLJMB 

PHA 

INY 

LDAIY SSLO 
TAX 

PL A 

JSR HEXAX 
RTS 

i 

I 

I ROUTINE TO fmm THE 

J SYMBOL-TABLE. 

> 

PRNT JSR SETSY RESET POINTERS 

JSF'; PRTSO PRINT HEADER 
PRNTl LDAIM *FB FOUR ENTRIES / LINE 

STA2 mi 

PRNT2 INCZ CNT 







THINK- 


TANK COMPANY 


<TTC) 


100679 PAGE 16 


0"\ 1 0 1 

V w) X Vv ♦ 


7 6 3 


30 


06 




RMT 




^^PAPE" 1 FF-T 




36r5 


'^>0 


DF 

A.' 1 


■^6 


wOn 


r 1 1... J. vf. 


Kin PRTMT 1 IHP 


\J U * 


36C8 


4C 


BD 


36 


IMP 


P R N T 1 
r r M t i J. 




U %j *i V t 


36CB 


20 


A4 


25 


r r\ 1^ 1 o -.J o P( 


[:■ p:- q v M 




0350 J 


36CE 


AO 


04 




LDYIM 


$04 


PRINT ADDRESS 


0360 { 


36D0 


Bl 


3F 




LDAIY 


SLO 




0370* 


36D2 


AA 






TAX 






\f %mf \if. \r 9 


36113 


C8 






INY 






0390 J 


36D4 


Bl 


3F 




LDAIY 


SLO 






36D6 


20 


C9 


2D 


JSR 


HEXAX 










•Ci 


27 








0 4 0 t 


36DC 


90 


E3 




Ftrr 

lU' L.' 


PRHT7 


«>TTLL ANY LEFT 


A 4 ■ A ♦ 


w O jUI C 


AO 






















i 






iy^^ifs ♦ 

V*f t^W ♦ 










« 
f 






A A / A ♦ 










f ROUTINE TO 


PRINT 


A 1 T M C A M T'l 


A A ♦ 










f TO KEEP TRACK OF 




A 4 '•> A ♦ 

\/ ^-i l.> \J ♦ 










* 






0 490' 


36DF- 


E6 


7C 




PRTLIN INCZ 


PGN2 




0 '5 0 0 t 


36E1 


30 


04 




BMI 


OKLIN 




0510 t 


36E3 


20 


EB 


36 


JSR 


PRTSO 


PRINT HEADER 


0520 { 


36E6 


60 






RTS 






^if %-r *tr »iF * 






E7 


2D 


OKLIN JSR 


CRLF 


FINISH LINE 


0540 t 


3AEA 


m 






RTS 






\/ w w \/ * 










































) ROUTINE TO 


PRINT 


HEADER 


n n ri ♦ 










i 

w 






A BJO A * 
V/iJ TV ♦ 


OOE.£> 


oo 


DP 






' * w 11 Lh P 




V/ O V V ♦ 


"5! A r F" 

O !». L. 


oo 


r ~ 


TA 


JSR 


PRTSl 




A/l 1 a ♦ 


O Or X 


90 


or 


~_ 
o / 


JSR 


PRTS2 




A VL 'a A ♦ 




A9 


w *t 




LDAIM 


*C4 




A/,-r A ♦ 

W O V ♦ 


36 F6 


85 


7C 




STAZ 


P8N2 




0640 i 


36F8 


60 






RTS 






0<S50* 










> 






0660 t 










* 






0670 : 










f ROUTINE TO 


PRINT 


FIRST PART OF 












t THE HEADER 


LINE 




0690 t 










i 






0700 i 


36F9 


AO 


4i 




PRTSl LDYIM 


$4B 










n V 




JSR 


MESSY 






36FE 


AD 


A 6 


2E 


• LDA 


SYMBOL 


PRINT ADDRESSES 


A7TtA ♦ 


"?70 1 


n 


00 




LDXIM 


$00 




V A *t\7 ♦ 






cc> 




JSR 


HEXSP 




07S0 I 


3706 


A'=i 

r 1 ^ J 






LDAZ 


EHI 




A "?x A ♦ 




AA 

no 


41 




LDXZ 


ELO 








■9© 






JSi 


HEXAX 






370© 


60 






RTS 






0790 t 










f 






50001 










9 






00:1. 0 J 










i ROUTINE TO 


PRINT 


SECOND PART 


0820 ; 










f OF THE HEADER 




0830 1 










A 

r 






0840t 


370E 


20 


EE 


2D 


PRTS2 JSR 


OUTSP 




0850 J 

%»J V«f W T 


3711 


20 


EE 


2D 


JSR 


OUTSP 




0« AO 1 






W 




LDXIM 


i^m 


PRINT DATE 




3716 


B5 


75 




PRTS2A LDAZX 


DATE 




A p n A • 


3718 


20 


FO 


2D 


JSR 


QUTCH 














im 






Of 00 J 


371 C 


EO 


06 




CPXIM 


$06 


ALL DONE ? 



I 



THE THINK-TANK COMF'ANY (TTC) 100679 PAGE 17 



0910 


'j571E 


DO 


F6 






BNE 


F'RTS2A 


NO 


V' / A*. V < 


W / A« V 


20 


EE 


2D 

£> il>* 




JSR 


OUTSP 




AO "/A < 

P' ^.J ■ 


•J -f ^, -V 
■..J / A., 


AO 








I DYTM 

L- X.' 1 J. 1 1 


$45 


PRINT 'PA6E' 


AO j4 A 


.., -J, ,.j ~ 




vn 


or 




1 riAAV 


MFc;cir5 
ncv>pw 




<*l IS" /\ ' 




C9' 


•TV 






l/rlr iPI 




CrlL' F 




"T "7 0 A 

J> / V- n 


CT A 

r U 


AjC 








iS>teToor 


YFc; 

T C 0 


0970) 


-•y ^\ 


0 A 

20 


C" A 

r 0 


ori 

2LI 




JSR 


uy 1 LH 


NU 


0980 




C8 








INt 






0 y V 0 


•■y -r /\ 

..5 / i 0 


1.1 0 


r- 3 






ft \i r* 


C« Ct T 0 0 Cl 




1000 ; 


..y ^ ~ 

3732 


JO 


he. 


OT*i 

JD 


Ct Ci T* 0 0 0 

r h 1 S JC 








1 0 1 Q ( 


3 / 3o 


n J 












f" rl 1 PI 1 r n U E. ~ rlUrl 


1 \J A.. 


•7,-yTy 
-.J / -.J / 


r 0 








C» JU< 






io?;o ! 


3738 


18 








CLC 








I 3739 


#9' 


01 








f 01 


ADD i TO PAGE2 


lOSO 


373B 


D8 








CLD 








373C 


85 


7B 






STAZ 


PAGE2 




1070) 


• 373E 


20 


CD 


2D 




JSR 


HEXOUT 




.1. \/ \.' 


1 7 4 1 


':>A 


or 

w r 


Aw 




JSR 


4CRLF 




1 r»ori < 




0 V 








0 1 w 






■1 <t Aft 










• 
t 








■1 -1 -1 A 

.1. .1. .1. V 


~z ~7 A 




t. tl 




UUCo i 


vian 


n 1 1 r Q p 


r rs 1 Anc»r r 


1 .1. .-o < 


3/4d 


A A 

AO 


A A 

00 








d* A A 




1130' 


* 374A 


B9 


vF 


25 


QUESTl 


1 Y*i AAV/ 

LDAAY 


T* r" \y T* 

TEXT 


GET A CHAR 


1 1 4 u 


■5 / 4 II 


A 


r' A 
r 0 


2D 




Joh 


uUTCjH 


DO T MT T T 

rrsIN 1 1 1 


1 1 0 


"jf "7 c:; /\ 


r^o 








T M V 

iNT 






1 lou 




r* A 

Lv 


05 






t»r T Ifi 


» VvJ 




.1. 1 / U 


► "7 "7 1=; Tf 


Fl A 
1.1 U 










n 1 1 i:r c t 1 
Ly l. 1 X 


Kin 


J. 4> u U 




00 








JSR 


WW 1 wi 




1 f 90 1 

Jh .1. /.w 




20 


97 


27 




JSR 


fS**02 


i'lt AfiiiiiR 


1200 


; 375B 


DO 


02 






BNE 


aUEST2 


NO XREF 


3 210 


t 375D 


A9 


00 






LDAIM 


$00 




i«o^ 


! 375F 


B5 


7D 




90fiT2 


STAZ 


XRFIND 




1230 


3761 


AO 


18 






LDYIM 


$18 


PRINT 'SAVE-ID 


1240 


' 3763 


20 


AO 


27 




JSR 


MESSY 




i2sa' 


I 3766 


60 








RTS 




AND RETURN 
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ADTnBL 




ti- 


•0050 


















iWTBLft 


2897 


ll- 


0060 


IC- 


1250 














tlUi 1 ir..l •, 


A 1 A 
U .!. U U 


02" 


-0360 


07" 


-0610 


IC" 


■1770 










bur IN 


4-.; t 4 1 


02- 


0520 


04- 


0050 


07- 


0590 


1 r~ 

i L/ 


O"^ 1 o 






CtDCRL 


25 3E 




03-0070 


67-dS20 










CNl 


A A SK A 




0170 


02- 


0180 


07- 


0130 


1 ri- 


1 1 40 


•1 TV- 


• 1 1 <?o 










lE- 

IF" 


-0260 
0290 


IE" 
IF- 


•0310 
0300 


Ic.- 


•0/2v 


It 


y / o u 


COI..D 


2004 


03- 


0070 


05" 


0050 














CRLF 


2IIE7 


02- 


0480 


07-' 
1 F " 


0430 
-0530 


07- 


1010 


07- 


1100 


ID- 


0590 


DADAR 


252A 


07-' 


0260 


















DADS 


27C1. 


02-' 


0420 


1 1.1 - 


H H r:' A 


1 h- 




lE- 


0870 


IF- 


0410 


DAUSK 
DADX 


?l=-i?6 

-"^ "*.» -y 

/ L.- 


07- 
OE" 


0240 

0050 


IE-' 

1 Tl- 
J. J.' 


0270 

J. 1 / 'J 


lE- 


0820 


lE- 


1020 






Y'l A T'l V Ci 


S Q 


07- 


0250 


IE- 


0290 














tlATP" 


W / w 
















1... 1 I .1. 


T) A 






1U~ 


0580 


IF- 


0750 










ELO 


0041 






02- 


0140 


IC- 


0120 


ic- 


1050 


IC- 


•1080 










IC" 


1 140 


ID- 


•0560 








END I"' AG 


257B 


■J / " 


f') <^ *7 f\ 


oc- 


0050 














EM rip GO 


257F 


07- 


0990 


07- 


1020 


ID- 


0770 










ENDPGR 


2539 


07" 


1030 


07- 


1000 














ENDPGS 
ERID 


25 8C 
2EAC 


07- 

19-- 


■1040 
0160 


07'- 
lA- 


•0980 
0050 














EXIII 


0074 


02- 


0300 


02- 

.1. L- ■ 


0310 
144 0 


07- 


0350 


IC- 


0530 


IC- 


■0640 


EXLO 

FNDSBL. 


0073 

2 8 3 7 


02- 

w' r 


•0290 

v V V 


A O 

1L~ 


A -/ A A 

030U 

■i .A O A 

•l''*2U 


0 /- 


AT-^ A 


IC- 


0510 


IC- 


•0660 


1*" Jt 1 Vi O V W 

r NUbYn 


O *T 




•04X0 

V T w V 


















r NX.' AT u 


v5 O / 1/ 


lE- 


•1020 


















1- M T'l Y F' r 


s./ O O r 


1 E- 


0950 


It 


AK'O A 


1 ST- 




lE-0840 


lE-1030 


n C T A IT.' n 

wt. 1 nhb 


'■5 0QD 

VcJt> 




■0440 


IC- 


0390 














UK. 1 iini 




A7- 

V/ / 


V vj *» V 


03- 


0050 














or. 1 LIT U 


...1 ^ L 


07- 
/ 




07- 


0580 














/H r** *v* T*a yy i"> 

GET0YR 


255C 


0 / - 


U 6 J. U 


07- 


0650 














GOGO 


3 A 92 


1 E- 


1 1 30 


















GTARG 


33B5 


IC- 


0380 


OD- 


0 0 5 0 


10- 


0050 










HEXAX 


2DC9 


02- 


0460 


lE- 


0500 


IF- 


0190 


IF- 


0400 


IF- 


•0770 


HEXOUT 


2DCD 


02- 


0470 


07-' 


1 190 


IF- 


0090 


IF- 


1070 






HEXSP 


2 DEB 


02- 


0490 


• 1 r— 
















HIPAR 


00 ID 


02- 


0090 


1 i'- 
















ID 

T ^ I T T'l 

.1. N':.' .1. l.I 


0062 

~I "1 L~ T'l 

o C! r I.I 


02- 

IC- 


0220 
1040 


02- 

X J. 


0230 

V V -uJ -J 


IC- 


1320 










1 N ^> A L U 




IC- 


1500 




1110 

J. X J. V/ 


IC- 


1310 


IC- 


1340 


IC- 


1370 












J. "tw 


lC-1710 










.1. 1 '1 1..' A L. I \ 


d '='■1 Fi 


IC- 


1580 


J. u 


1 "^^ 1 A 

J. ^ X w 


IC- 


1550 










LESS 


35BE 


ID- 


1150 


X i* 


AOO A 


ID- 


0960 


1D~ 


1030 






1 rr c c; K" 
1... 1:.. ;.) o t\ 




lE- 


0270 


lE- 


0110 


lE- 


0150 










1 n n \"' TT' 


juy t 


ID- 


0 9 7 0 


ID- 


0870 














i i'\ i"i 'T 

L U u 1 • 1 


"T cr o ci 

3 J 88 


ID'- 


0850 


ID- 


1180 














LOOPTR 


35D0 


lE- 


0070 


1E-' 


0300 














LOPAR 


001ft 


02- 


0080 


ID- 
ID- 


0460 
0680 


ID" 
ID- 


0520 
0850 


ID- 


OS50 


m- 


•0610 


MAIN 


25FS 


09" 


0050 


















MAINR 


25FB 


09- 


0060 


IC- 


0180 














MAYBE 


3683 


1E~ 


1050 


lE- 


1010 














MESSG 


2C0A 


02- 


0450 


ID" 


0160 


ID- 


0330 


IF- 


0940 






MESSY 


27A0 


02- 


0410 


IF- 


•0710 


IF- 


•1240 
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M n I J I- T 
nuvi~ 1 


'X A t'l 


ID" 


1050 


ID- 


1120 






nUV'fc. 1 r! 


____ 


lE-017© 


1E*#24# 






M n U 1"' Y 

nuv- 1;:. A 


■•r c; A p 

0 vJ n r.^ 


ID- 


1.040 


J. L' 


(^O "1 A 

u y xsj 








"y Cr r" H 


lE- 


0160 


IE.- 


0100 






nTCRLF 


33E4 




'4 "9 

13- 


0050 






>jk *Y* r*i 1 f*> 


**? "7 C" fj 

j5 J fc. t< 


ic- 


0810 


1 L- 








NEX 1 T 


•Tf IT OCT 


m- 


0890 


ID- 


0950 






NEaTYR 




lE- 


■0080 


lE- 


0140 








Art 1 A 
J. C) 


02- 


0070 


IC- 


1350 






INI. .U 


f>rii s 


02" 


0060 


02" 


0070 


1 r- 


.1. vJ W V 




00 7 w 


lE- 


•1150 


lE- 


1040 


1 E:" - 


1080 




33 Bl 


IC- 


0310 


IC- 


0260 


ic- 


0280 


W A.* W W 1 




19- 


■0120 






















OKSQ 




12- 


0060 


IC- 


1780 






f'l 1 1 'V P I.J 


0 fi C* 


02" 


0510 


07- 


0550 


IC- 


0300 










lD-©3*0 












IF • 


1140 






uU I PUT 


2EA0 


02- 


•0530 


IC" 


0890 


ic- 


0930 




2DEE 


02- 




©7- 




10- 


•0220 








ID- 


031 0 


lE^ 


0770 










IF- 


0840 


IF- 


0850 










IF- 


•1110 


IF- 


1180 


ni ITMPT'I 


-r-rcrp 

w7 0 L» w 


IC- 


-0890 


18" 


0050 








33F3 


ic- 


■0920 


IC" 


0950 








0055 


02- 


•0190 


02- 


■0200 






PACKER 


007B 


02- 


-0320 


02- 


0330 


ID- 


■0650 


pAcq 

1 1 1 V J w 


004C 


02- 


-0150 


02- 


0160 


IC- 


•0250 










i0-#7iSr© 




WW/ w 


02-0330 


02- 


0340 


1 £1-0660 










IF- 


■0630 






Di <"}vi n 


i3<9L'X 


iC-0620 


IC-0400 






r« M n ri nr 
r nl.Ji.ll:.. 


U U 0 ..^ 


02- 


•0230 


07- 


0450 






PRFLAG 


004D 


02- 


-0160 


07- 


■0970 


1C~ 


■0270 


PF?NT 


36 B7 






lB-d74d 






PRNTU 


v5 6 1! 1.1 


IF- 


•0280 


IF- 


•0330 






PRNTR 


36C1 


IF- 


•0300 


IF- 


•0420 






FhNTb 






1F«0310 






1 T n 


a:. n M 


02- 


•0330 


lE- 


•0440 


IF- 


•0340 


PRT.TD 


2598 


07- 


-1190 


19- 


-0160 






PfiTLIN 


36riF 


IF- 


■0490 


lE- 


■0670 


lE- 


•0750 


PRTSP 


36EB 


IF- 


-0590. 


lE- 


■0430 


IF- 


•0270 


PFVT'SQ 


36F9 


IF- 


■0700 


ID- 


•0510 


IF- 


•0600 


1 I 1 1 W 1 Y 


37 OE 


IF- 


■0840 


IP-OAI© 






1 f \.?Mn 


77 1 A 


IF- 


-0870 


IF- 


-0910 






i"i ri T n o ri 




IF- 


-0940 


IF- 


•0990 






Ci Ci T O C« 


w / w ^ 


lF"tOW 


IF- 


•0960 






1"' T' T V M 


J? 0 y 0 


IF- 


•0050 


lE- 


•0600 


IF- 


•0810 


i"i r'l *¥* v p" r\ 

rh I Xr u 


3609 


lE- 


-0440 


lE- 


•0690 


lE- 


■0880 


PrTXFR 


3544 


lf-0710 


ir-Oi^so 


lE- 


■0800 




3 0 M !:> 


lE- 


-0730 


lE- 


•0850 






O 0 "f* V IT T 

r h 1 A r 1 


■7 /. 1 


lE- 


-0770 


lE- 


•0790 






©is-T'i'iri 1 
rn 1 Ar u 




lE-^^il© 


lE- 


•074?^ 






p p T Y r u 

I r t i A 1 V 




lE- 


-0860 


lE- 


•0830 






p p r Y r LI 

1 n 1 Ai w 




lE- 


-0890 


lE- 


-0700 








-3i#3 


lE- 


••#42® 


lEi-07f<6 






PSSXLO 


33BE 


IC- 


-0460 


IC- 


•0380 






QUEST 


3745 


IF- 


-1110 


OB- 


•0050 






WEBm 


3f4#i 


tF- 


-SIS^ 


IF- 


-1170 






QUESTR 


375F 


IF- 


•1220 


IF- 


-1200 







lE-1120 



lD-0190 
1F-0S80 



1F~0050 
1F~0920 



IF-iOlO 
i»-0750 



1D~0260 
lF-097© 



lD-0300 

lF-0060 
1F~1000 



IF- 1060 
lF-0490 



lC-0780 lD-0130 



lE-0860 
lF-0510 



lF-0320 
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i:;- v: c? o v M 

Pi L.. \.f ^.^ 1 f 1 


"ir J 9 


1 r- 




A 0 . 
V 7 


0 0 5 0 

V V -.J V 














pec* TP T 


2 ('! 1 




V V..' / V 




1040 

J. V " V 


1 li- 


0A30 

V w v 










SAVE 


00 7E 


02- 


0350 


1 c ■ 


■04S0 


ic- 


0500 


IC- 


0520 


IC- 


0540 










:l C- 


0630 


ic- 


0650 


IC- 


0670 


IC- 


0690 










1 c 


•09:1.0 


le- 


0940 










SFTSY 


25E6 


02- 


0390 


ID- 


-0840 


lE- 


0420 


1 F- • 


0260 






SETBYF^ 


2514 


07- 


0110 


lE- 


•0060 


lE- 


0510 


lE- 


0610 






SHI 


0040 






02- 


•0130 














SLO 


003F 


02- 


OliO 


02- 


•0120 


IC- 


•1690 


IC- 


1730 


ID- 


0900 










J A.* 


0990 


ID- 


1020 


ID- 


1050 


ID" 


1080 










X hi. 




lE-04f# 




0530 




0570 










1 F • 


■ 0 A 0 

V \J t.J x.* 


1 F- 


0390 










c n I"' T n 


-» er cj c; 


ID- 


0840 


J. 1.' 


. A A"? A 
VO / V 


1 ri- 

X u 


X V 
















ID- 


.AT < A 

•0' 10 


1 c 














n c: A A 
.>•.. L:. n 


j. y 




















D U u h U r 


O C" A 

t:. 11 J 


19- 


A A 0 A 
OOVO 


















w I.) u rs u n 


c n ^.^ 


•1 O- 
1 7 


UV/U 


















■.D 1 I... I..- .1. 1 < 


A4 




V V 


OA- 


-0050 

v V '-J v/ 














BSI II 


0070 


02- 


0260 


02- 


■0270 


07- 


0170 


07- 


0290 


07- 


0310 










07- 


•0340 














SSLO 


006F 


02- 


•0250 


02- 


"0260 


0 7 • 


•0120 


07- 


0270 


07.. 


0280 










07- 


0320 


IE - 


•0090 


1 E- 


0170 


lE- 


0200 










lE 


"0960 


1 E- 

L Em 


-0990 


lE- 


1070 


lE- 


■1110 










IF- 


0080 


IF • 


•0130 


IF- 


•0160 








3429 


IC- 


•1310 


IC- 


-1160 


IC- 


•1750 












w *r ■r M, 




















OTP y PC 


7 4 r 


ic- 


•1650 


12- 


-0050 














J> A 1 1 J. 


A Ci 7 


02- 


0280 


02- 


-0290 


07- 


• 0 1 ftO 


•! P- 
J. U 


0 1 70 


■| C - 


04Q0 










IC- 


"0680 


1 p. 

J. K^t 


1 JlL'XCt 




X 


1 p- 

X u 


X UoU 










IC- 


-1570 














i) A 1- U 


W V / J. 


02- 


0270 


02- 


•0280 


KJ / 


V i W V 


1 P- 


0 ■! '•".0 


1 P ■• 


0 4 "? 0 










IC- 


-0700 


1 p. 


1 1 AA 


1 r- 


1 1 SO 

X X ujV 


X w 


1 "t^O 

X 00 v 










ic- 


1360 




. ■) ■•? Q A 
J, ■...» 7 U 


1 c; - 


1 4 1 0 


IC- 


•J 500 










IC- 


•1560 


■| p- 


■| 700 
J. / V V 


ic- 


1740 


lE- 


0080 










1 E- 


0 190 




0'>20 










SYMBOL.. 


2EA6 


19- 


-0100 


IF- 


"0720 














SYMF 


2EA7 


19- 


-0110 


















SYHItl 


006B 


02-0240 


02- 


■0250 


IC- 


•0130 


ic- 


0140 


IC- 


1070 










:l C- 


1130 


IC- 


•1180 


le- 


1200 


IC- 


1210 










IC" 


■1230 


lE- 


■0550 


1£- 


0580 


1E~ 


0620 










lE- 


■0640 


lE- 


•0970 


1F~ 




IE- 


1060 










lE" 


"1090 














C V M M A V 


LT A A 

4:; t. n n 


19- 


0140 


IC- 


-1540 














ST riArJr 






0f~016d 














I r 1 .1.' I... 1... 


i... 


in- 


0460 


06- 


•0050 














T A P 1 P '"1 
1 n I... 1... 


S d A 

H 


ID" 


0510 


ID- 


■0480 


ID- 


■0620 










1 1 1 A.' I... I 


3 5 A 0 


ID- 


0 6 3 0 


in- 


•0540 














TABLES 


i:-- 3 


ID- 


0640 


ID- 


•0500 














TABLET 


357B 


ID- 


0740 


ID- 


•0700 














TABLEU 


357E 


.1. D- 


■0750 


ID- 


■0730 














TEKST 


2567 


07- 


0 ■ J 0 


07- 


•0540 














TEXT 


259 F 


07- 


■1260 


IF- 


■1130 














TOPPRT 


3500 


ID- 


■0130 


14- 


-0050 














TOPPTQ 


3506 


ID- 


-0160 


ID- 


•0210 














TOrPTR 

1 W^i t i 1 ? 


3513 


in- 


•0220 


IP- 


0180 














TWPTS 


3S4» 




•025© 




•02f 0 














TOFPTT 


352B 


ID- 


•0320 


ID- 


•0370 














TOPPTU 


3539 


ID- 


•0380 


ID- 


-0140 


ID- 


-0350 










XHi 


0056 


02- 




02'- 


*otio 














XLO 


0055 


02- 


•01 SO 


02- 


■0190 




•0S9O 


i»- 


0980 


16- 


1010 
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00711 

YCOM 0031 
YSNOF^ 2797 
TCRLF" 258F 



05-0340 

02 --01 00 
02-0400 

07-1100 



ID" 1070 
02-0350 
lC-1760 

iF-ii90 

07-1120 



ID- 11 00 
1G~0110 

iC"*©i#(& 



lG-1650 



ir-l220 

ir-iw 



STWQL imLE moo 44C0 100679 F»i%il ^1 



NLO 0015 02-0060 02*007© 
NHI 0016 02-0070 J.C-1350 
LOPAR OOIA 02-0080 lD-0460 
lB-0680 iri-0850 





00 ID 


02- 


-0090 


ID- 


-0570 


YCOM 


0031 


02- 


•0100 


IC- 


•1760 


SLO 


:Oitif 


02- 


■0110 


02- 


-0120 










ID- 


0990 










lE- 


-0460 










IF- 


•0360 


SH i: 


0040 


02- 


•0120 


02- 


•0130 


EI...0 


0041 


02- 


•0130 


02- 


•0140 










IC" 


11.40 


Ein 


0042 


02- 


•0140 


ID- 


•0580 


PAGS 


004C 


02- 


•0150 


02- 


-0160 


PRFLrtS 


mm 


02- 


•0160 


07-- 


•0970 


CNT 


00S4 


02- 


•0170 


02- 


•0180 










!£• 


0260 






• 




IF- 


0290 


PACE 


0055 


02- 


•0190 


02- 


-0200 


XLO 


0055 


02- 


•0180 


02- 


-0190 










in- 


1070 


PBN 


0056 


02- 


•0210 


07- 


•0990 


xh;i: 


0056 


02- 


•0200 


02- 


•0210 


ID 


0062 


02- 


•0220 


02- 


-0230 


PMGDE 


0063 


02- 


•0230 


07- 


-0450 


SYMID 


006D 


02- 


•0240 


02- 


•0250 










le • 


1130 










ic- 


•1230 










lE- 


-0640 












1090 


set n 


uuor 


















07- 


•0320 










IE- 


•0960 










If- 


•ooeo 


SSHI 


0070 


02- 


0260 


02- 


-0270 










07- 


0340 


SXLO 


0071 


02- 


•0270 


02- 


-0280 










IC 


•0700 










1 (> 


1360 










IC- 
lE- 


1560 
•0190 


sxiri 


0072 


02- 


0280 


02- 


0290 










IC- 


0680 










!(:•• 


1570 




0073 


02" 


02f 0 


02-0300 










IC- 


1420 


EXIII 


0074 


02- 


0300 


02- 


•0310 










IC- 


•1440 


DATE 


0075 


02- 


0310 


02- 


0320 


PAGER 


007B 


02- 


0320 


02- 


•0330 


PGNR 


007C 


02- 


0330 


02- 


•0340 










IF 


0630 


xrf:i:nd 


007D 


02 ■ 


0340 


02- 


0350 


SAME 


00 7E 


02- 


0350 


1C-- 


04E!0 










IC 












ic- 


09-1 0 


BUFFER 


0100 


02- 


0360 


07- 


0 6 1 0 


COI.D 


2004 


03- 


0070 


05" 


0050 


RESTRT 


2031 


02- 


0370 


07- 


1040 



lC-1380 



ID- 


-0520 


ID- 


-0550 


ID- 


-0610 


IC- 


-1690 


lC-1730 




'090<> 


ID- 


•1020 


ID- 


-1050 


ID- 


•lOBO 


lE- 


-0490 


1E~ 


■0530 


lE- 


•0570 


IF- 


0390 










IC- 


•0120 


IC- 


•105© 


ic- 


1080 


lU" 


■0360 


lf-07i© 






IF- 


0750 










IC- 


•0250 










IC- 


•0270 


IC- 


•0780 


lB-0130 


07- 


0130 


ID- 


1140 


ID- 


1190 


lE- 


•0310 


lE- 


•0720 


lE^ 


0730 


IF- 


•0300 










Iti- 


•0890 


ID- 


•0980 


ID- 


•1010 


IP-llOO 










ID- 


•0760 










IC- 


•1320 










IC- 


•0130 


IC- 


•0140 


IC- 


1070 


IC- 


•1180 


IC- 


•1200 


IC- 


1210 


1 F- 


0550 


lE- 


0580 


lE- 


0620 


lE^ 


0970 


lE- 


•1000 


lE- 


1060 


07- 


0120 


07- 


0270 


07- 


0280 


XE- 


0090 


lE- 


•0170 


lE- 


0200 


IE- 


0990 


lE-1070 


le- 


1110 


IF- 


0130 


IF- 


0160 






07- 


•0170 


07- 


•0290 


07- 


0310 


07- 


0150 


IC- 


0150 


IC- 


0470 


1 (■;■ 


1 1 00 


IC- 


1150 


IC- 


1 330 


ic - 


1390 


IC- 


1410 


IC- 


1500 


ic- 


1700 


IC- 


•1740 


lE- 


0080 


lE- 


0220 










07- 


0180 


ic- 


0170 


IC- 


0490 


IC" 


1430 


IC- 


1520 


IC- 


1530 


07- 


0330 


IC- 


0510 


tc- 


0660 


07- 


0350 


IC- 


0530 


IC- 


0640 


07- 


0620 


1 D- 


0250 


IF- 


0870 


ID- 


0650 


IF- 


1010 


IF- 


1060 


ID- 


0660 


ID- 


0750 


IF- 


0490 


IC- 


0110 


IC- 


1650 


IF- 


1220 


IC - 


0500 


IC- 


0520 


IC- 


0540 


IC- 


0650 


IC- 


0670 


IC- 


0690 



IC -1770 
1D~0630 
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SFTSYR 


2514 


07- 


0110 


DADSR 


2526 


07-- 


0240 




2S28 


07- 


0250 


DADAR 


252A 


07- 


0260 


PL ncRi 


253E 


07- 


0420 


1 SET DAY 


2547 


07- 


0520 


1 GET D YD 


254C 


07- 


0540 


' GETDYR 


255C 


07- 


0610 


TEKST 


2567 


07- 


0710 


1 EN DP AG 


257B 


07- 


•0970 


1 ENDPGQ 






ENDPGR 


n c; frj 9 


07- 


■1030 


1 ENDPGS 


258C 


07- 


•1040. 


TCRLF 


258F 


07- 


-lOft* 


TCRLFQ 


2591 


07- 


■1100 


PRTID 


2598 


07- 


-1190 


TEXT 


259F 


07- 


-1260 


PRGYM 


25A4 


02- 


■03E50 


8ETSY 


25E6 


02- 


-0390 


1 MAIN 


25Fe 


09- 


"0050 


! HAINR 


25FB 


V V 


. ("1 A A 
'1.' W 


YSNOR 


2797 


02- 


-0400 


1 MESSY 


27A0 


02- 


-0410 


BADS 


27C1 


02 


-0420 


' DABX 


27C3 


vfc 




FNDSBL 


2837 


OF 


-0050 


FNDSYM 


2837 


02 


-0430 


' ADTABL 


2894 


11 


-0050 


ADTBLR 


2897 


11 


-0060 


j GETARG 


29SB 


0 2 


-0440 


! OKSQ 


29B3 


12 


-0060 


MESBG 


2C0A 


02 


-0450 


, HEXAX 


2DC9 


02 


-0460 


hexol.it 


2BCB 


02 


-0470 


CRI..F 


2BE7 


02 


-0480 


1 HEXSP 


2DEB 


02 


-0490 


1 OUTSP 


2DEE 


02 


-oso# 


^ OUTCH 


2DF0 


02 


-0510 



BUFIN 

OUTPUT 
SOURCM 
SOURCE 

SOURCE 
SYMBOL 
SY«F 

OBJECT 
SYMXRF 
S VMM AX 
ERID 
RESSYM 

spec:i:n 

NOPUNT 

GTARG 

PtSXLO 



2E41 

2EA0 

2EA3 

2EA4 

2EA5 

2EA6 

2EA7 

2EA8 

2EA9 

2EAA 

2EAC 

3390 

33A4 

33B1 

33B5 

33BE 



02 ■ 
02- 
19 
19 
19 
19 
19 



lE-0060 lE-0510 
lE-0290 



lE-0610 
1E~1020 



03-0070 
03-0050 
07-0580 

07-0540 
OC-0050 
07*" 102© 
07-1000 
07-0980 
07-1 ©10 
07-1120 
19-0160 
1F~1130 
lE-0440 
1D--0840 

lC-0180 
lF-1190 



•0520 
■0530 
■0070 
- 0080 
"0090 
-0100 
-0110 



©7-052O 



lD-0770 



lC-0800 lF-a590 IF- 1080 



19-0120 
1.9-0130 
19-0140 
19-0160 
lC-0100 
lC-0250 
lC-0310 
1C~0380 
1C~0460 



lF-0340 
lE-0420 



lF-0260 



ir- 


©710 


lF-1240 






IF- 


■0410 


1B~ 


1150 


lE-0680 


lE- 


0870 


IB- 


1170 












IC- 


•1250 












1 C- 


■0390 












ic- 


-1780 












IB- 


-0160 


lP-033© 


lF-094© 




-©770 


lE- 


•0500 


lF-0190 


IF" 


-0400 


IF" 


07- 


-1190 


lF-0090 


IF- 


-1070 




-059© 


07-0430 


O7-101© 


07- 


•1100 


IB- 


IF^ 


•0530 












IF- 


-0740 












©7- 


-12©© 


in-0220 


IB- 


-0230 


IB 


-0300 


ID' 


•0310 


lE-0770 


IF- 


-0050 


IF- 


•0060 


IF- 


-0840 


IF -0850 


IF- 


-0920 


1 1" 


■1000 


IF-lIl© 


IF-- lit© 








-0260 


07- 


-0550 


lC-0300 


ID- 


-0190 


ID 


IB- 


-0360 


IF -0110 


IF- 


-0880 


IF 


-0970 


IF 


-1140 












04 


-0050 


07-0590 


IC- 


-0310 






IC 


-0890 


lC-0930 











lF-0720 



07-0160 
lC-1540 
1A~0050 
09-0050 
OA-0050 
1C~0260 
0I(«©OS# 
lC-0380 



IC-'©!^© 



lC-0280 
1©--©©S0 
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PLOXLO 


33111 


ic- 


0620 


IC- 


0400 






MTCRLP 


33€4 




0780 


13- 


0050 






h 1 L\'.LVl 


3 3 E B 


IC" 


08 10 


1 L. - 


t\ "7 VS f\ 

0 .'• vo 






IJU 1 Mr 1.1 




1C-- 


0890 


lo- 








UiJ 1 I vvt 






i r— 

1 U"^ 








■r \ 1 (•; T fi 
.1. N .1. 1.1 


■1 "1 p ri 
...i ....'r i.> 


1 r- 


1 040 

J. V 7 


J. J, 


\J V w' V 






(3 T Tj d c; t 


"t jl o o 


ic- 


1310 


1 V- 


1 1 AO 
1 J, uV/ 




1 7 SO 








1500 




I 1 X V 


XV 


X <9 X V 










IL- 


1 4 (} C.J 


.1. (. •• 




INGXLR 


345B 


ic- 


1580 


ic- 


1510 


1C~ 


u tr b;' /\ 

1550 


STF^XRF 


345C 


ic- 


1650 


12- 


0050 






STRXFQ 


3472 


le- 


1760 


IC- 


1660 






TOPPRT 


3500 


ID" 


0130 


14- 


0050 






TOPPTQ 


3506 


ID- 


0160 


ID- 


0210 






TOPPTF--; 


3513 


ID- 


0220 


ID- 


0180 






'V* !*"> 'V* 

I OHl-' 1 S 


35 IB 


1D~ 


0250 


ID- 


0290 










115-0320 


IB- 


0370 






TPrPTU 


S zi 3 T 


.1. i.* 


0 R 0 


ID - 


0140 




A T BS A 




"Y i;r "y 


I n- 

4. JU* 


0460 


06- 


0050 












'OSi 0 

V w JL \r 


10-048© 


X 4.* 




1 ni.'i... i...r\ 


o V 


1D-- 


0630 


in- 


0540 






TAFfl ITC; 


O >J O O 




0640 


ID- 


0500 






I rTr>l..r. 1 




* ft- 

X 1.* 




ID- 


0700 






T A TV 1 !"■ t 1 

1 n J.w... 1::. l.J 


■•y c:* r;- 

...1 -...1 / t:. 


J. A.' 




ID- 


0730 






SORTQ 


3535 


1 D 




ID- 


0670 


•1 Y'l 

IB- 


•( '1 A 

1200 


LODPT 


35S8 


ID- 


0850 


ID- 


■1180 






NEXTY 


358F 


1 1.I •• 


-0890 


1 D- 


0950 






LOGPB 


359E 


ID- 


0970 


ID- 


0870 






MO<.'EX 


35AB 


IB- 


1040 


ID- 


•0910 
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•0440 


lE- 
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lE- 
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3651 


lE- 


•0770 


lE- 


-0790 






PRTXFU 


3659 


IE- 


•0810 


lE- 


•0740 






PRTXFV 


3666 


lE- 


•0860 


1E~ 


•0830 






PR 1 XFW 


366E 


lE- 
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IE- 


•0700 
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IE- 
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lE- 
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lE- 
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lE- 
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•0310 
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SYMBOL. TABLE 4000 44C0 100679 PABE 04 



PHi!.ii;A :y/i6 

PRTSRB 3725 

PRTGRC 3772 

QUEST 3/45 
QUCSTQ 

ntJESTR 375F 



1F--0870 lf"-0910 

IF™ 0940 lF-0990 

IF- 1,000 lF-0960 

lF-1110 OB-0050 

lF-il30 ir-1170 

lF-1220 lF-1200 



